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Turn Your TRS-80 Into A 

C 



Radio Shack gives you a TERM program with its RS-232-C board, but that's just 
to whet your appetite. ST80 was written by the author of Renumber 1.2, so you 
know what kind of features to expect: CONTROL key, ESC key, REPEAT key, a 
RUN key, and a functioning BREAK key. Also lets you list incoming data on 
your lineprinter. You can reprogram the RS-232-C switches from the keyboard, 
making baud rate changes simple. Full upper/lower case keyboard and video 
driver are included, plus instructions on how to make a simple hardware 
modification to display upper/lower case letters (This change is optional. 
Unmodified TRS-80 will display capital (upper case) letters only.). Supplied on 
tape, loads with SYSTEM command. Disk users can also load and run the 
program under DOS. 

Requires at least 16K Level II BASIC, a RS-232-C serial board, and a modem to 
work with a timesharing computer. The cursor control format includes clear 
screen, backspace, advance, down and up space, clear to end of line 
and home, using the most common control character format currently in use 
(similar to CDC terminals). Level II, 16K Price, $49.95 on tape 



* 



NEW ST80O FOR DISK 

Yes! Data Spooling is here, and MORE . . . 

For 32K Disk systems — $79.95 
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Sometimes I wonder how anything at the main publishing office in 
New Hampshire ever gets done ... they do, too. But, despite its 
quickly-put-together appearance, PROG/80 received a warm welcome 
from many readers. (Remember the first issue of SoftSide?) 

The first issue of PROG/80 contained several mistakes, including a 
few gross errors which we'll try to catch up on in this issue. Most of you 
caught the error in the upper-lower case modification article concerning 
the 2101 which should have read 2102. Then there was the INKEY article 
which mentioned a third program which never made it to print, (it was an 
example of how to use the routines which did appear in the feature. I'm 
still searching for part three ... somehow, it got misplaced.) 

The clock routine we printed was the wrong routine, although the one 
we did print is a nice little routine you might want to put into a game 
program. There is more, but I'm sure you get the idea. Most of this 
happened because we collected the prefiminiary material over a period of 
six months while trying to figure out how to present it. And in the interim, 
some of it got misplaced and some got shuffled. Also, our proofreaders had 
an attack of bleary eyes in the final rush to print. 

This issue of PROG/80 is going to be closer to what future issues will 
belike. Understand that SoftSide is a source for coded, canned software ... 
load it and run it. PROG/80 is for people who want to write their own 
software. So, we're going to look at things in a different light. 

There will be games in PROG/80, but the main difference is that if a 
game is published, It will be selected for its value to to someone who wants 
to take it apart and use the ideas in his own program. In other words, the 
game will be the framework for presenting special subroutines — the real 
reason for listing the program. 

Machine language will also be an acceptable area of PROG/ 80 

interest, as will FORTRAN, and COBOL (when it becomes available). 

Every reader is welcome to participate and submit articles for possi ble 
publication. We pay a reasonable rate for features and programs. Don't be 
hesitant to submit your ideas! 

Lance 
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/ Reference\ 



Z80 

Instruction 

Handbook 



Z80 Instruction Handbook 

Scelbi Publications 
Convenient pocket-size manual describes 
Z80 capabilites in easy-to-understand 
terminology. Designed as a practical 
reference to mnemonics, machine codings 
and usage — for programmers of every 
level, from beginner to professional ... 
anyone working in Z80 machine or 
assembler language. Price, $4.95 




The BASIC Handbook 

Dr. David A. Lien 
Definitive reference work 
explaining over 50 versions 
of the language in detail. All 
you need to know about the 
major statements, functions, 
operators, and commands 
pertaining to use in micro, 
mini and mainframe com- 



puters. 



Price, $14.95 



Sargon: A Computer Chess 
Program 

Dan & Kathe Spracklen 
Documentation covering all 
algorithms in Sargon can be 
found in this comprehensive 
guide book. Contains table of 
contents, block diagram, 4 
part introduction, Z80 listing 
and index to subroutines. 
Price, $14.95 
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CL(^)CK 
ROUTINES 



by Lance Mick I us 



Okay disk spinners! Here's some stuff 

for you. If you're just a tape puller, 

skip thisarticleand goon to the next one. 

You can put these routines into your 

Disk BASIC programs to manipulate 

the clock. The first one will set both the 

time and date. It works by seeing if the 

month is zero, or if the clock has changed 

at all after waiting in a FOR-NEXT loop. 



From DOS there is a command called CLOCK which causes the 
clock to appear in the upper right hand corner of the screen. Here 
are two routines in BASIC that duplicate CLOCK and CLOCK 
(OFF), so you can control this display from your BASIC programs. 

Maybe you'd like to have the clock on but want it in the upper 
left hand corner. Just make X the screen position and call our next 
routine to move the display. Think of it as a PRINT® statement. You 
can put the display on the bottom line if you want, but don't scroll. 
Try it and see why. 

If for some reason, you'd like to see the date displayed rather 
than the time, we also have a routine to change that, and another to 
put it back to time again. 
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16866 RET. *** ROUTINE TO SET TIMEDftTE IF MOT *** 
18828 REM *** PREVIOUSLV SET AT RUN TIME *** 
18848 A$=TIH£* 

18866 FOR J=8 TO im : NEXT J 
18888 IF ft$=TIM£* CM£>"R» : GOTO 18128 

18188 IF PEEU1645D08 THEN 18288 

18126 PRMTENTER TIME CHH:f«rSS>?"j :LINEINPUT » 

18148 POKE 16451,VAL(L£FT*<A*,2)) 

18168 POKE 164»,VflL<MM<M>4,2» 

18188 POKE 16449, VFt -:RIfitfrs<RS. 2) ) 

18288 INPUT-ENTER DATE <HN/DWW>»; A* 

18228 POKE 16454, VflULEFTKM, 2» 

18248 POKE 16451, VFt<MIt*<A*, 4, 2» 

18268 POKE 16452, Wl«ICKtt<«fc2tt 

18288 RETURN 

18388 REM *** ROUTINE TO TURN CLOCK OFF*** 

18320 CHD'T" -.■■:■■- 

18348 POKE 17676,162 : POKE 17677,63 

18368 CftO'R" 

18388 RETURN 

18486 REM *** ROUTINE TO TURN THE CLOCK ON *** 

18426 C»"T" 

18448 POKE 17676,169 : POKE 17677,76 ■ 

18466 OD'R* 

18488 RETURN 

18588 REM *** ROUTINE TO HOVE CLOCK DISPLAY *** 

18528 IF X<8 OR X/1815 RETURN 
18546 :M53€0+K 

18568 POKE 19628, 1NKX/256) ■ 
18588 POKE l%37,X-256*INT(X/256) ' ■ 

18688 RETURN 

18626 REM *** ROUTINE TO SHITCH TO DATE *** 

18648 POKE 19646,70 

18668 POKE 19643, fiSC(V«> 

18686 RETURN 

18780 REM *** ROUTINE TO SHITCH TO TIE *** 

18728 POKE 19648,67 
18748 POKE 19642, ASC<\"> 
18760 RETURN 
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A UTILITY PROGRAM 
THAT GREATLY EXTENDS 
THE KEYBOARD, VIDEO, 

AND PRINTER 

SUBROUTINES IN YOUR 

LEVEL II ROM! 



KVP runs under DOS or Level II BASIC. It is relocatable under your 
control, and so may be used, simultaneously with other machine 
language programs. At least 16K of memory is required. 

Here are some of the 
things you'll be able to do: 



USE AN EXTERNAL KEYBOARD 

Or, use any other serial Inpul device 
in place of the TRS-80 keyboard 



ELIMINATE A COMMON SOURCE 
OF PROGRAM ERRORS by running 
your keyboard in upper case only, or 
run in upper/ lower case mode just 
like a typewriter 



OISPLAY UPPER AND LOWER 
CASE LETTERS on your video 
monitor screen 



SIMULATE A RADIO SHACK 
SCREEN PRINTER using an ordinary 
printer 



PRACTICALLY ELIMINATE KEY- 
BOARD BOUNCE The amount ot 
debouncing is user-adjustable 



USE MOST ANY ASCII SERIAL 
PRINTER such as Teletype 33 or 
Spinterm 



TELL THE TRS-80 YOU HAVE NO 
PRINTER AT ALL 



EXCHANGE PROGRAMS WRITTEN 
IN BASIC WITH OTHER COM- 
PUTERS From the Sorcerer to the 
I8M 370 (and TRS-80'S, too!) 



THE LIST GOES ON AND ON! 



Self-relocating for 16K, 32K or 48K systems 
$24.95 on tape $29.95 on disk 



TjE TRS-0O Software exchange 



17Brl«rCliifDrlv« Mllford, N»w H«mp»hlr» 03055 
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Ready to get serious? SUBSCRIBE TO PROG/80 the magazine 
dedicated to serious programmers ... beginners to professionals 



SUBSCRIPTION RATES - 4 issues per year 
USA Canada 

Bulk mail-$10.00 Mexico 

First Class mail-$14.00 APO/FPO 

Overseas airmail-$18.00 Overseas surface mail 



] 



$14.00 



QCheck/Money order enclosed 



□ Master Charge DVISA 



SIGNATURE . 
ACCOUNT *_ 



EXP. DATE . 
NAME 



.INTER. #_ 



ADDRESS. 
CITY" 



_STArE_ 



.ZIP_ 



Telephone orders accepted tor Master Charge or VISA accounts. Call Monday Ihrough 
Friday, 9:30 to 5:30 EST at 603-673-5144 

POBOX68 MILFORD, NH 03055 



35ft5ide 

BACK ISSUES 



OCTOBER 

•Cribbage 'State Capital Quiz 'Death Star 
•Calculalor 'Pillbox • Programming Hints 

NOVEMBER 

•End Zone 'Troll's Gold 'Shopping List 'Octal 
lo Hexadecimal 'Level I to Level II Conversion 
•Bad Code Puzzler 'What They Never Told You 
About Level II 



DECEMBER 

•Spelling Bee *Santa Paravia en Fiumaccio 
•Biorhythms »Six Million Dollar Clock • Chess 
Clock -Mortgage Calculation 

JANUARY 

• 'Round the Horn 'Writing Good Computer 
Games 'Ten Pin Bowling 'High Speed 
Graphics 'Comput-A-Sketch 'Kiddy Slot 



FEBRUARY 

•Form 1040 'Concentration 'Elements Quiz 
•Cribbage UPDATE •Writing Good Computer 
Games (Part 2) 'Hints lor Disk Users 

MARCH 

•Tarot 'Metric/ English Converter 'Dive Bomb 
• Personal Finance (Checkbook) «Jig Saw 



APRIL 

•Safari 'Rabbits and Foxes •Personal Finance 
(Checklinder) 'Series Circuits "Don't It Make 
My Brown Eyes Blue 'Spring Flowers 
•Excerpt: A page from The BASIC Handbook 



Ordering Information 

While still available, back issues are $2.50 
EACH, shipped via First Class Mail. Send 
check, money order or Master Charge/VISA 
payment with order to: SoltSide, PO Box 68, 
Milford, NH 03055. ii you really can't wait any 
longer than necessary, telephone your charge 
card order any weekday between 9:30 and 5:30: 

603-673-5144 
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by George Blank 



What is frustration? Here is my definition: frustration is spending 
hours entering a program from the keyboard and then losing it because 
your system crashes, or you type LL1ST and have no printer. It has 
happened to me many times, most often from the LUST problem, but 
sometimes because my washing machine shuts off and sends a voltage 
transient up the line, or even when I turn off my electric typewriter. 
Sometimes my system crashes to disk for no identifiable reason, . . I'm tired 
of retyping programs, so I wrote RESCUE instead. 

Rescue is short machine language program that will restore a BASIC 
program in Disk BASIC after your system crashes to DOS, or locks up on 
LLIST when you have no printer, or even after you press RESET or type 
NEW. 

The BASIC program is NOT RESCUE. Instead, it will create a 
machine language program for you and provide instructions on using 
TAPEDISK to save it. It will also give you insttuctions on the use of the 
program. Write them down for future reference. 

Essentially, here is the method: with a BASIC program in memory, 
press RESET or type NEW to lose your program. If Rescue isn't in 
memory, return to DOS and type LOAD"RESCUE". Now return to 
BASIC, protecting memory as required. On a 32K machine you would 
answer MEMORY with 49088. Now thpe SYSTEM, and answer ?" with 
/ 49088. The program should execute and return you to BASIC. Then type 
RUN and you've got your program back. 

This is set up for Disk Basic only. The same program would work in 
Level U BASIC If the memory locations START, MSB1, MSB2, and the 
first pointer were changed to reflect the beginning of Level II BASIC at 
(Hex) 42E9 instead of 68BA. 

10 PROG/80 May 1979 



All the computer does to your old program in these cases Is simply • 
reset four program pointers to their original values. It doesn't disturb your 
program until you ioad something else on top of it or turn off the computer, 
If you reset the pointers to their program values, you can have your 
program back. Rescue will do that for you In only a few seconds. 

All it does is search your program for the begining of the second line, 
restore the second line pointer, search for the end of your program, set 
the end of program pointer, simple variable pointer, and the array variable 
pointer to the end of the program (in the process wiping out your variable 
values) and return you to BASIC. Then you type RUN and your program is 
operating again. 

You may not use DIR or other commands that use memory after the 
start of BASIC programs without permanently losing your program. But 
you can return to DOS, load the Rescue machine language code into high 
memory (NOT the BASIC program here, which will destroy your program, 
but the short machine language program it will create), return to BASIC, 
protecting memory for the subroutine, type SYSTEM, then enter the 
starting address and you have your program back. You can LIST it or RUN 
It. 

The program is set up for Disk BASIC, as the problem is not as severe 
to Level II users. However, it could be converted for Level II. All you have 
to do Is change START to 42E9 , MSB1 to 42, MSB2 to 43, and the 
address PT1 to 42E9. (All these values are Hexadecimal, and must be in 
decimal form for the program.) 

Here are the pointers : 

Address of Second Program Line 
End of Program 
End of Simple Variables 
End of Array Variables 

68BA(Disk) 42E9 (Level II) 

40F9 

40FB 

40FD 

To use the program, you must create the machine language code and 
save it on Disk or system tape prior to the need for it. If you wish, you could 
just load It using the BASIC program here if you do It before you load the 
program you will be using. Write down the instructions the program gives 
you, as they will be specific for your computer. Then, when you need to 
RESCUE a program, load RESCUE, return to BASIC (protecting the high 
memory), type SYSTEM and the starting address. 

You may find other uses for RESCUE. I use it to find out how much 
memory my programs use. I press BREAK in the middle of a program 
(when all the variables and the string space is in use), then type ? MEM, 
NEW, ?MEM, then I subtract the first MEM value from the second, type 
SYSTEM, /49088 (I have a 32K computer) and restart my program with 
RUN. • 
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* TRS-B9 RESCUE PROGRAM CREATOR * 

* GEORGE BLANK, LEECHBURG, PA * 

* LD HL, START INC HL LD ft (HL> CP 8 * 
10 DflTfl 32, 151, 184, 35, 126, 254,9 
19 RtM 

*JRN2,LP1 INC HL INC HL LD fUHL) CP 68H * 
29 DflTfl 32,258, 25, 35, 126, 254,164 

29 REM 

*JRZ.<+4) CP69H JRICLF1 DEC HL U> PTi,HL * 
30DATR 40,4, 254,185, 32,239, 43, 34,186,184 

39 REM 

* IfC HL INC HL LDA,<KL) CP 6 JR N2,LP2 * 

40 DflTR 35, 35, 126, 254,8, 32,256 
49 REM 

* INC HL LD ft(HL> CP 8 JR N2,LP2 * 
58 DflTfl 35, 126, 254,8, 32,244 

59 pen 

* INC HL LDfti(HL) CP 8 JR NZ.LP2 * .... 

68 DflTfl 35, 126, 254,8, 32.238 

69 REM 

* INC HL LD fl. <HL> CP 1CH JR HZ, LP3 * 

70 DflTfl 35, 126, 254,28, 32,246 

79 REM 

* INC HL LD PT2.HL LD PT3.HL LD PT4,HL * 

80 DflTfl 35, 34,249,64, 34,251,64, 34,253,64 ' ] '. 
89 REM 

* JP BASIC * 

96 DflTfl 195,25,26 ! 

52 RBI 

* POINTER TABLE I 

* PT1 TOIMTCR TO SECOND UHE OF KOGfflH 6S8fl <HEX> 
. * PT2 END OF PROGRAM POINTER 48F9 

* PT3 SIMPLE VRRIRSLES POINTER 48FB ; 

* PT4 ARRAY VARIABLES POINTER 48FD 

9S REM • 

* MEMORY PROTECT FEATURE * 
168 CL5:PRINT"RESCUE SUB-ROUTINE" 

118 PRM'THIS ROUTINE MILL ONLV WORK IF YOU ANSWERED" 

120PRINT"l'£MORV? ,l ;CHR«95)i" WITH") ; 

128 REM * MM=MSB OF SUB-ROUTINE LOCATION * 
* Mft=POKE ADDRESS * 
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129 REM * DETERMINE MEMORY IN COMPUTER * 

139 P0KE(-3).83:IF PEEK(-3)=83 THEN NM=255:Mft=-64:11$="65472 n :GQT 
0206 

140 P0KEC-163S7>,83:IF PEEK<~1638?>=83 THEN HH=19i:Mft=-l«48:IW= 
"49888* :QOTO280 

156 P0KEG2765),83:IF PEEK(32765)=83 THEN HM=12?:l1Ra32784:l1*s«32 

784* -.0010206 

168 PRIMTYOU DONT HAVE ENOUGH MEMORY": STOP 

260 PR1NTW -.PRINT :PR1NT*PRESS ENTER TO LOflt?, STARTING ftT *;Hfi 

218 INPUT Rl 

238 REM * H= LOCATION IN HEHORV * 

* nv= mm contents * 

299 REM * POKE PROGRAM MO MEMORY * 

388 FOR H=HATOI1R+6i 

316 READ KV:IF MV=9 THEN LET MV=ltl 

338 POKE K,W 

348 PRINT MV; 

358 NEXT M 

460 PRINT:PRINT"THIS PROGfifl CANNOT BE USED IN BfiSIC, RS IT DESTR 

OYSYOUR" 

418 PRINTPREVIOUS PROGRAM YOU MUST FIRST SAVE IT ON DISKETTE ft 

S' 

428 PRIHT u fi MACHINE LANGUAGE PROGRAM. " 

436 INPUT-TRESS ENTER FOR INSTRUCTIONS"; ft* 

588 CLS 

518 PRINT"TO USE THE PROGRffl:" 

320 PRINT: PRINT" IF IT IS HOT IN MEMORY. YOU MUST LOAD IT FRO 

K 0OS:\PRINT"<IF NOT IN DOS, PRESS RESET)" :PRINT 

539 PRINT'TYPE:"," ",»L0flD"iCHRf<34>i "RESCUE*; 0«$«34) 
546 PRINT" V "."BASIC" 
556PRINT u ffNS^I1EH0RY?';CHR$<95>;' WITH", tt: PRINT 

568 PRINT"OfCE PROGRAM IS IN l£MGRY:":PRINT"TYPE:V "."SYSTEM" 
578 PRINT"AHSHER *?";CHR$<95>; " HITHV/M* 

588 PRINT PRINT" IT IS SUGGESTED THAT YOU WRITE M»\ THESE IN 

STRUCTIONS" 

598 PRINT RND SAVE THEM FOR WHEN YOU USE THE PROGRAM. «: INPUT" < 

PRESS ENTER)"; A* 

688 CLS:PR1NT 

618 PRINTSflVE THIS PROGRAM SO THAT YOU DON'T HAVE TO RETYPE IT, 
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628 PRINT" IF VOU LOSE IT, THEN SftVE THE MfiCHINE CODE RS FOLLOWS: 

H 

628 PRINT"(HRITE INSTRUCTIONS DOWN)" 

668 PRINT" V VTAPEDISK" 

678 PRINFRNSHER *?";CHR$(95);" WITH", 

688 IF HM=255 PRINT'F RESCUED FFC8 FFFD FFC6" 

698 IF HrM91 PR3NT"F RESCUED BFC8 BFFD BFC8" 

786 IF MM=12? PRINT'f RESCUE :8 7FC8 7FFD 7FC8" 

718 PRINT" ", " ", *E" 

728 CMD"S" 
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BASIC STATISTICS 

This powerful set of procedures is of use to students, instuctors, 
behavioral and research scientists, statisticians — anyone using these 
statistical formulas for practical or research applications: 

RANK -ORDER DATA A simple program utilizing a 
Shell-Metzner sorting routine to rank data in an ascending manner. 

CENTRAL TENDENCY Given a set of raw data, this program 
ranks and displays raw data (optional), N, X, X , variance, 
standard deviation, the Median, and the Mean. 

PEARSON PRODUCTMOMENT CORRELATION COEFFICIENT 
Given N pair (X,Y) of data, the program computes mean, standard 
deviation for S and Y, and R. An option is available to utilize a 
regression equation to predict Y given any value of X. 

CHI-SQUARE Given raw data for any number of rows and 
column, the program will optionally display a raw data printout with 
observed and expected values; row, column, and grand totals; and 
gives the used CHI and DF. 

FISHER T-TEST Given 2 sets of raw data for either equal or 
unequal N. the program computes and displays N, mean, standard 
deviation and standard error of the mean for both data samples as 
well as T and DF. 

SIMPLE ANALYSIS OF VARIANCE Given raw data for any 
number of conditions, the program computes and displays N, Mean 
and Standard Deviation for each condition as well as •SSbg. SSwg, 
SStot, DFbg, DFwg, DFtot, MSbg, MSwg. and the F. 

Z-SCORES AND STANDARD SCORES Given N scores, the 

program computes a Z-score for each N. The user has an available 
option to compute a standard score for each N given the desired 
Population Mean and S.D. 

RANDOM NUMBER GENERATOR Given I he upper ami lower 
limits, this program produces a list of N random numbers useful in 
■ research and experimental design. 

NOTE: The basic formulas for these major statistical procedures were 
derived from the textbook, "Elementary Statistics", by Janet T. Spencer, 
Benton J. Underwood, Carl P. Duncan, and John W. Cotton. Appleton - 
Century - Crofts Psychology Series. New York, l%8. 

Available on Digital Audio Cassette for the Level H TRS-80 
MkrocMqrater - $20.00 

]V£ TRI-0O I oftuKftfe Zmfamy* 

* 17 BRIAR CUFF DfllVE MH.FORD. MEW HAMt^HlKE 03056 
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by Gary S. Breschini 

This program is written in Level II BASIC for the TRS-80 and occupies 
approximately 3K. It provides a scatter diagram (scattergram) of pairs of 
data on a coordinate-axis system. In addition, it displays the correlation 
coefficient (coefficient of linear correlation), r. This is a measure of the 
strength of relationship between two variables ... determined by the effect 
a change in one has on the other. The upper and lower values of both 
variables can be specified. The data is entered using the INKEY$ function, 
eliminating the necessity for pressing the ENTER key, and allowing the 
display to be constructed at the beginning of the data run and points to be 
added one by one. 

The scattergram is designed to display bivariate data, that is, data 
consisting of two items of data which are variable but which are in some 
way related. The two items of data are usually called X and Y and are 
generally paired, such as the height and weight of an individual, or the 
length and width of an object, etc. The scatter diagram is a convenient 
method for pictorial display of the pairs of data X and Y on a 
coordinate-axis system (graph). 

Once the points are displayed on the scattergram, they can be checked 
visually and mathematically for interrelationships. The visual examination 
can use the sample plots below for comparison, while the mathematical 
test for linear correlation (r) is performed. As was pointed out by Johnson 
(1976): 

The primary purpose of correlation analysis is to measure the strength 
of linear relationship between variables. The coefficient of linear 
correlation, r, is the measure of strength of linear relationship between two 
variables. This strength of relationship is determined by the amount of 
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EXAMPLES OF LINEAR RELATIONSHIPS 






Fig. 3 
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EXAMPLES continued 





Fig. 5 
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Fig. 6 
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linear.) 
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effect any change In one variable has on the other. Let's use X and Y as our 
variables. If as X Increases mere is no definite shift in the values of Y, we 
will say there is a lack of correlation. If as X increases there is a definite 
shift in the values of Y, we will say that the correlation is [a] positive when 
Y tends to increase, [b] zero whey Y tends to stay at about the same value, 
or [c] negative when Y tends to decrease. The preciseness of this shift wilt 
determine the strength of the linear correlation [1976:100-101]. 

The formula used for the calculation of r was: 



s 

r xy=S x S y Where: 


S xy-n^T^^-n-SxEy]and. 


Sy=x /:x*-[Ex] 2 /n 
n-1 


y\A 2 -[*.*"■ 

n-1 



The n-1 method was used for calculating the standard deviations 
(S and S ) so that the formulas are suitable for use with small sample 
sizes. 

Once the values of X and Y have been entered, and r calculated, it is 
necessary to interpret the results. The seven examples given of linear 
correlation can be compared to the scattergrams created with actual data 
and an estimate of the correlation can be made. The correlation coefficient, 
r, expresses the relationship between the variables, and ranges from a-1 to 
a + 1. The-1 expresses a perfect negative correlation, while the +1 
expresses a perfect positive correlation (Flg.7). All other plots will occur 
between these two extremes. 

When the value of r Is close to either -1 or +1 we suspect a linear 
correlation, and when the value of r is near we suspect that there is no 
linear correlation. In order to make a decision as to whether or not given 
values of r signify a linear correlation, we use Table 1 . The use of this is 
demonstrated by Fig. 8. 



There is 
linear correlation 

I " 1 r— 


No linear 
correlation 


There is 
Linear correlation 

— 1 i " . 


-1.0 


t 

Decision 
point 





r 

Decision 

point 


1.0 


Fig. 8 DECISION POINTS 
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If the calculated value of r lies between the decision point and either -1 
or + 1 there is assumed to be a linear correlation. If the value of r is 
between the two decision points, no linear relationship can be assumed. 
The decision pointsare found through the use of Table 1. Using the sample 
size (the number of pairs entered) locate or estimate the decision point in 
Table 1 for that sample size. If the value of r lies between the decision 
point and either -1 or +1, the relationship appears to be linear. If the value 
of r lies between the decision point and no linear relationship can be 
assumed. 









TABLE 1 










Decision 




Decision 


Decision 




Decision 


n 


point 


n 


point n 


point 


n 


point 


5 


0.878 


12 


0.576 19 


0.456 


30 


0.361 


6 


0.811 


13 


0.553 20 


0.444 


40 


0.312 


7 


0.754 


14 


0.532 22 


0.423 


50 


0.279 


8 


0.707 


15 


0.514 24 


0.404 


60 


0.254 


9 


0,666 


16 


0.497 26 


0.388 


80 


0.220 


10 


0.632 


17 


0.482 28 


0.374 


100 


0.196 


11 


0.602 


18 


0.468 









Caution must be utilized in the interpretation of the results of this 
statistical procedure. Because there appears to be a linear relationship 
between two variables, it is tempting to assume a cause and effect 
relationship. Knowledge of the particular data is necessary to decide 
whether or not a true cause and effect relationship is likely. For example: if 
the height and weight of several individuals is plotted, and a linear 
relationship is suggested, knowledge of the situation would lead to the 
assumption that the two are related in a cause and manner, if, on the other 
hand, the program suggested that there was a linear relationship between 
increasing population in the United States over the past fifty years and 
increase in deaths from heart attacks during that same period, it would be 
rash to assume that there is a cause and effect relationship between the 
two factors without an intimate knowledge of the situation. Many factors 
can be found to be related in a linear fashion which have no cause and 
effect relationship. 

The program is initiated by a RUN statement. It then asks, "DO YOU 
WANT INSTRUCTIONS <YES = 1)?". At this point, an instruction set can 
be accessed or the program can be entered by pressing ENTER. The user 
is then instructed "INSERT MAXIMUM VALUE OFX?". At this point the 
user can insert the maximum X value desired on the scattergram. 
Following this, the minimum value of X and the same values for Y can be 
entered. This determines the coordinates of the scattergram and makes 
sure that (1 ) all points fall within the scattergram, and (2) that the scale is 
large enough to give a good visual separation between points. 
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When the program begins, a coordinate-axis system is drawn, 
complete with values of X and Y at points along the axes. At the bottom 
left of the grid is displayed "X(#####) Y (#####)". When values of X and 
Yare entered, the#'s will change one by one to the input values. Values 
greater than 9999 cannot be input, nor can values larger than that be used 
for establishing the size of the grid. Leading or trailing blanks must be 
input, but the position within the input rows is not critical. Decimal points 
can also be inserted. When all ten of the #"s have been replaced by either 
data, zeros or blanks, the data will automatically be entered into the 
calculations. At this point, the "X(#####) Y (#####)" will be replaced, 
signifying that new data may be entered. After the fifth entry of data, the 
correlation coeffiecient will be displayed and will be updated after each 
new entry of data. After each pair of numbers is entered, the point on the 
coordinate-axis which best corresponds to the point will be lighted, 
creating the scattergram. If a mistake is made in the entry of data, place an 
X in the last position of the Y row. This causes the entry to be ignored. 
Values of X and Y larger or smaller than the stated limites will also be 
ignored, and an error message will be displayed along the bottom right 
edge of the display. 

The entry of numbers pairs which have one of the two numbers the 
same, such as 11,44 13,44 23,44 19,44 32,44 will cause a divide by 
error, as the standard deviation of X and Y is used as a divisor in 
calculating r, and with one number always the same, this results in an 
attempt to divide by zero. To avoid this, the numbers entered must not 
have either the X or Y values all the same. (In some cases, values which 
are very near to the above condition will cause the divide by zero error as 
they will be rounded to zero during calculations. In any case, the 
correlation between such numbers is either or so close to it that it is 
rounded to 0, as for any change of one variable there is no change in the 
other (i.e. no correlation.) 
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After the initial display, the values of X and Y are entered. 



Numbers entered 


54 


36 


SO 


23 


43 


30 


22.4 


13.6 


75. 19 


44.44 


ia 


10 



Displayed 



X 100054) 


Y( 36 ) 


COP 




X< 50) 


1(23 ) 


COR 




X<43 ) 


V! 30 ) 


cop 




X<22.4 ) 


VI 18.6) 


COR 




X (75.16) 


1 (44.44) 


COR 


.90531 


X(18 ) 


YilO 1 


COP 


.93900 




As can be seen from the data which was entered, leading 
blanks or zeros, and any needed trailing blanks or zeros 
must be entered, but the position of the data within the 
input rows is noncritical. 

After entering the needed data, a BREAK and RUN will 
restart the program for a second run. 
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SAMPLE RUN: The following is an example of a run made 
with this program. 

00 YOU WANT INSTRUCTIONS [YESslj? press enter Co continue 



INSERT MAXIMUM VALUE OF X? 100 

INSERT MINIMUM VALUE OP X? 

INSERT MAXIMUM VALUE OF Y? 50 

INSERT MINIMUM VALUE OF Y? 



:■<) 



43 



36 



30 



16 



J. x-t— 



\, 



50 COR 

_l \_ 



100 



\/ 



EXPLANATION OF DISPLAY FEATURES 

A = Values of Y from highest to near lowest 

B = Lowest value of X 

C= Intermediate valueofX 

D= Highest value of X = : 

E = Location of correlation coefficient 

F= Input row for X 

G = Input row for Y 
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1 REM SIMnERGRflH/lXRRELftTICN PROGRflW COPYRIGHT 1575 BV fiflRV S. 
BRESCMNI, 379 CGRRRL DE TJERRft RD, SftLIKflS. Cft 33968 1/79 

2 aS:PRlN1^1. H SCRTTEMSS« & CORRELftTION u :PRIHT:PRlHT:lNPUT B DO 
¥00 fftNT DIRECTIONS <VES=i>"s«: IFft=lG0SU&149e 

5 aS:INPUT"INSERT tlfiXIHUtt VflLUE OF X";XH 

6 INPUWNSERT MINIM VftUE Of X"iXL:XX=XH-KL 

8 IFXL>XHPRINT H L01CR LIMIT EXCEEDS UPPER LIMIT. » : QQSUB5888: GOT05 
12 IFHD9999FRINT"X UPPER LIMIT TOO LARGE u :GOSU6560e:GOTO5 
15 INPUT-INSERT MffllHUM VALUE CF V";VH 
28 INPUT" INSERT MINIMUM VflLUE Cf V";VL:W=VH-VL 

25 IFVL>VHPRINT"LDi£R LIMIT EXCEEDS UPPER LIMIT" :GOSU8508e:GOTOl 
5 

39 IFVH>3959PRIMT U V UPPER LIMIT TOO LARGE. ":GOSUB58»:G5T0t5 

48 2X=XX/il4:2Y=W/43 

58 aS:FORX=12TOl2?:S£T<X,0):SETa44):NEXT 

68 F0RV=8TQ43:S£T<12, V> :SET<127, V) :NEXT 

78 PRINTS565.XLJ :PRM©?L'X<HH#> V<#«###>"; :PRINM01L " 

I 

75 fi$="0" :B$= H 8" :Ci="8" :&t="8* :Et= u 8 u :F$= n @ u :H$='0" : I*="8" : J*="8 

88 PRINTWW?» XHj :PRINTW91 INT<XL+<XH-XIV2); 

98 PRMTtUfe "COR"; 

95 I=(VH-VL)/15 

188 FORX=8TO14STEP2:PRINTe(0+<64*X)),IHT(VH-(X*I))i :NEXT 

1888 R$=INKEY$:IFLEN<ft$)=0THEN188e 

1828 F-RINT&3?3»B»i 

1038 Bfs!N(EY$:]R.EIKK}-0TtENUG8 

1046 PRINT&374.B*; 

1858 C«sINKEV»:IFLEN<C$>=eTHEN1858 

1868 PRINT89?5,C$; 

1863 D*=INKEY* : iaEN<t*>=0TJ£Nl&G 

1866 pRIHTW76iM» 

1888 £*=INK£Y* ; IFLEH<E$)=8THEN1880 

1890 PRINW7, E$; 

1695 X*=fl*+«$+C$+i>$+E$ 

1188 F*=INKEY*:IFLEN(F*)=8THFJtti88 

1118 PRINTf982,F$; 

1128 6l=INKEV$:iaEN<G$)=0THENli28 

1138 PRMW83, fife 

1133 H*=INKEV$ : IFLEN(H$)=0THEN1133 
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1158 I*=INKE\*:IFLEN(I*)=0THEN1156 
1160PRINTe985,I*; 

1178 J$=II*CEY*:IFLEN(J$)=0THEN11?8 

1186 PRINTW86.JI* 

1196 V$=F*+Q$+Hf+I$+J$ 

1289 IFJ*=T60T0?8 

1396 fcQ+l:C=VAL(X$):D=VfiL(Y$) 

1382K=C:l=D:C=C-ta.):D=D-VL:C=(C/ZX)*13:EN)/ZV 

1204 IF K<XL THEN PRINTI1911, "X TOO SMfiLL"; :GOSUB5096:GOTO?6 - 

1385 1FU<VLTHENPRIMTWM1, "V TOO SMLL"; : 60SiJB5^ : GOT078 

138? IFC>127THENPRINTei813 t 'X TOO BIG"; :6OSU65008:GOTO?0 

1388 IFDM3THENPRINTW013,'Y TOO BIG'; :GOSUB580e:GQTO?0 

1328 D^44-D:SET(C,D):PRlN7S37:L u X(l#iM) V(HHt) B i 

1325 flO5UBi350: PRINTS1885, * "> : PR1NM004, CC; :G0T079 

1356 N=N+1 : SK=SX+K : SY=SV+L : AA=RfiKK*K) :BB=B8+(L*l) : XY=XY+(K*U 
1352 IF8=<4GOTO?0 

1355 XD=SQR<(fiA-((SX*SX)/N))AN-i)) 

1357 YD=SQR«BB-«SY*SY)/N>V<IH» 
1366CV=l/(H-i)*((XY)-((l/N)*(SX*SY))) 
1265 a=CV/(XD*W) -.RETURN 

1480 PRINP'THIS PROGRAfi HILL DISPLAY A SCATTERGRflil USING VALUES 
OF X m Y. IT HILL fiLSO PROVIDE THE CORRELATION COEFFICIENT BETH 
EEN THE VALUES OF X AND V. SET THE UPPER AND LOWER LIMITS DE 
SIRED FOR BOTH X AND V AND INSERT VALUES "; 
1418 PRIHTOf X AND V. THE DISPLAY HILL PLOT THE POINT ANT> A 
FTEF: THE FIFTH POINT HILL BEGIN DISPLAYING THE CORRELATION COEF 

FICIENT. VALUES LARGER THAN 9999 CANNOT BE ENTERED. IF YOU HAV 

E VALUES LFfcGER, DELETE THE LAST DIGIT(S). "; 

1420 PRINT" STANDARD DEVIATIONS (IN THE CORRELATION FORtWLAS) A 

RE CflLCULfiTEDUSING THE N-l METHOD. " 

1430 PRINT: INPUT'PRESS ENTER TO CONTINUE"; ft 

1440 PRIW'THERE IS NO NEED TO PRESS ENTER HHEN INSERTING VALUES 

OF X & V. MERELY INSERT 2 NUMBERS (THEY MILL BE DISPLAYED AS TH 
EY ARE ENTERED). LEADING (OR TRAILING) ZEROS OR BLANKS HOST BE 
INSERTED. "> 

1445 PRINTDECIKfiL POINTS CAN BE ENTERED IN FtACE OF ONE Of THE 
5 DIGITS. TYPING AN X IN PLACE OF THE LAST DIGIT HILL CAUSE THE 

ENTRY TO BE IGNORED (IN CASE OF ERRORS). " 
1458 INPUPPRESS ENTER TO CONTINUE";A:RETURN 
5060 FORMTO20B0:NEXT:RETURH 
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STARDATE: 2200 

From Admiral Fitzpatrick — 
You are to enter and explore the Omega VI 
region of the galaxy, gather information on other 
inhabitable planetary systems you may encounter and 
defend yourself against hostiles in case of attack. You are 
in command of the Starship ENTERPRISE and her ship's complement of 
371 officers and crew. Omega VI is composed of 192 quadrants 
containing star systems and planets (a few habitable). Information on 
Omega VI is sketchy, but astronomical hazards such as pulsars, Class 
stars and black holes are known to be present in the region. 
It is also patrolled by Klingon battle cruisers, 
so look before you leap. 



Specs: Star Trek III. 3 



Play Board: 8 by 8 by 3 quadrants 
Weapons Systems: Phasers and 
Photon Torpedoes 
Power Systems: Warp and Impulse 
Computer Systems: Science and 
Ship's computer 



Sensors: Long and Short Range 

Reports: Damage Control and 

Status 

Play Elements: 20 Klingon battle 

cruisers, 100 stars and planets, 

black holes, pulsars 



Available on Digital Cassette 
for Level II, 16K - $14.95 



Xf £ TIM-80 SoftuKMC Exchange 
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A PIECE 

the mm 



by Lance Micklus 



KEYBOARD ROUTINES 

One of the first problems encountered by a machine language 
programmer is how to get the data from the keyboard. There are three very 
nice routines in the BASIC ROM which can do this. When using any of the 
routines, be sure you save DE and IY registers before the call. 

Ttie first call is the standard one in the Editor/ Assembler instructions. 
The address to call is X'2B'. This is an inkey routine. If none of the keys 
are pressed, the A register will contain a zero. If a key is pressed, the A 
register contains the byte value of that key. 

By ORing the A register on the return from the call, we can test the Z 
flag to see if any key was pressed. If we must wait until a key is pressed, 
then we just jump back to the call to address X'2B'„ or else fall through 
and do something with the key that was pressed. 

Here's what the routine looks like in assembler language: 



LOOPt 


CALL 


2BH 




OR 


A 




JR 


Z.LOOP1 



A second way to do it is to call address X'49' . This call gets a character 
from the keyboard also, but until a key is pressed, the wait loop is built in. 



PROG/80 May 1979 



27 



You just cait it and when you return, the A register will contain the 
byte. 

The third method is really nice. You must create a buffer in your 
program for a tine of text from the keyboard to go, Load the start address 
of the buffer in register pair HL Load register B with the size of the buffer 
minus one byte. If you forget to subtract out the one byte, then the 
RETURN character might overflow the buffer since it isn't included in the 
byte count. Now you make a- call to address X'40' . 

The ROM routine will get a line of text, display it on the screen while 
it's being entered and take care of RUB OUTS. It returns when either the 
BREAK or ENTER key is pressed. It's up to you to figure out what to do If 
the BREAK key was pressed. 

In your buffer will be the line that was typed in. Register B will tell 
you how many characters are in the buffer, excluding the RETURN 
character but including the BREAK character X'01 '. 




DISK DRIVES 
Now in Stock 



The TRS-80 Software Exchange is pleased to 
offer single and dual Percom Disk Drives for 
your TRS-80. These are reliable, high quality 
drives, fully compatible with the TRS-80 and 
Radio Shack's drives. 

Enjoy these advantages: 

• Fast access time 

• 110K/40 tracks vs. Radio 
Shack's 89K/35 tracks 

• Lower cost — ' save $100 over 
comparable units 

• Available NOW! 

Single Drive $399.00 
Dual Drive $799.00 

Cable (required) — $29.95 

NOTE: All disks require TRSDOS software, available only from Radio Shack. 

TRI-0O Software Exchange 



T|« 



17 Biiai ClW 0'U» MWpfd. M»w Hn<7ip«Nr» 03WS 
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WITHOUT DISK 



by James Garon 

In the first issue fo PROG/80 there was an excellent article by George 
Blank called Super Graphics. Of course, it only works if you have a disk, 
but it makes SUPER graphics MUCH easier. Since I don't have a disk, I 
decided to write this BASIC program to act as a "graphics editor". 

Save the program on tape and load it in before you write a program 
using Super Graphics. 

Graphics Editor allows you to step through your Level II program 
(which may use line numbers up through 59999) and to alter the program 
in ways not possible by use of the EDIT command- In particular, it allows 
you to POKE tokens (decimal 128 through 255) into your program, where 
they'll replace characters in a string. This means there must be a 
"dummy" string in your program to receive these tokens. 

To use Graphics Editor, type RUN 60000. The editor will ask, 
"WHICH LINE NUMBER?". Respond with the line number containing 
the "dummy" string. A heading will appear: 

LOC. DEC. CHR$ NEW 

LOC. is the location of the first byte in the line 

DEC. is the decimal value of that byte 

CHR$ shows a. how that byte would appear in a string (if DEC. is between 

32 and 191) OR b. if the byte is a CONTROL character (0-31) OR c. if the 

byte is a SP. COMP. (space compression) code 192-255. (These codes 

cause through 63 blanks to be printed) 

A question mark appears under NEW to prompt you to enter one of 
the following: 
ENTER to leave that byte unchanged and display the next 
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A to display the previous byte (unless the byte currently displayed 

' is the first byte of the line) 

1 to 255 This value will replace the old value at the location, and if it is 
between 129 and 191 , the corresponding graphic character will 
appear to the right. Note that consecutive graphic characters are 
staggered to make them easier to identify (This applies to the 
CHR$ column also) 

to exit the Editor before the end of the I i ne is reached 

6886* CLS:REH StTOHRfiPHICS 
FOR THOSE WITH NO DISK 

60*18 IN=UT"HHICH LINE NUMBER"; N: 
E=l?129: IF J059999 THEN 68038 
68828 S=PE£K<E)+256*PEEK(E+1): 

L=f>EEK<Ei2H256*PEEK<E*2>: 

IF L<N THEN E*S;G0TQ 68828 

ELSE IF L=N THEN 69848 
68838 PRINTLINE ROT IN PRQBBHV 

GOTO 68918 
68848 PRINT 

" IOC. DEC. CHR$VN£H 

68858 FOR I=E+4 TO S-2 
68868 X=PEEK<D: PRINT lift: 

IF X<192 m 50126 PRINT 

T(«<P0S<:e>+4*a/2~iNT<y2)» . 

CKR*CX>. :GOTO 68888 
68878 IF X=32 PRIKmflMK", ELSE 

IF XG2 PRlNT"CONTRQt",ELSE ■■ ■' * . ■ ■ 

IF 50191 PRINTS?. COW. "X-192> 

ELSE PRINT CHR$<X># ' 

68886 X$=" ": INPUT X* : IF X*=" 'THEN .' 

68128 ELSE IF RSC(X$)=M. ' . ■ ' ' 

AND DE+4 1=1-1 ELSE 68166 
68398 GOTO ee©68 
60188 X=VflL<X*> : IF X=8 END ELSE 

IF X<8 OR XI>255 PRINT "ERROR": 

GOTO 69060 ELSE POKE LX . 
68118 If X<192 m KA2Z PRINT 

TfiB<46+4*<I/2-INT(I/2)» 

M*C27>CHtt<X> ■■':■"■•■■ 

68128 NEXT 
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Let's use Super Graphics to create a fish and have him swim across 
the screen. First load Graphics Editor. (This is always done prior to typing 
any lines in the main program). Next, enter the program, including the 
"dummy" string at line 120: 

100 DEFSTR A 

120 A = "THIS IS WHERE THE GRAPHICS GO!" 

130 CLS:FORP = 640TO692 

140 PRINT @ P,A: IFRND(2) = 1 PRINT @ P-54, "0" 

150 FOR 1 = 1 TO30:NEXT:PRINT @ P, CHR$(31) 

160 PRINT @ 960, :NEXT 

170 FORJ = 1T08:FORI = 1 TO50:NEXT 

180 PRINT: NEXT 

190 GOT0 130 '-" 



Next we use Graphics Editor to magically alter line 120. From the 
il lustrations, you can see that the fish consists of thirty-one characters: 

32{b1ank), 130, 173, 180, 184, 188, 191, 156, 180, 26(cursor down) 
24, 24, 24, 24, 24, 24, 24, 24, 24, 24, (cursor left 10 times) 
32(blank, 160, 158, 135, 139, 143, 191, 191, 143, 135 
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We run 60000 and press ENTER until we see the first byte following 
the quote (a"T"). User input is shown underlined, 

RUN 60000 



WHICH LINE NUMBER? 110 












LINE NOT IN PROGRAM 




WHICH LINE NUMBER? 120 




LOC. DEC. CHR$ 


NEW COMMENTS 


17141 65 A 


? ENTER 


17142 213 SP.COMP.21 


? ENTER 213 is the token for " = 


17143 34 SP.COMP.21 


? ENTER 


17144 84 T 

17145 72 H 


? 32 

? 130 






i 












17146 73 I 


? 137 


, 




Oops! Should 
have been 




? 173 
















173 at location 171 46 


17147 83 S 










17146 137 \ 


\ 








17147 83 S 


? 180 


1 


.. 






17148 32 BLANK 


? 184 


- 








17149 73 I 


? 188 






- 




17160 83 S 


? 191 










17151 32 BLANK 


? 191 P" 






17152 87 W 


' 156 L 








17153 72 H 


? 180 K 




17154 69 E 


? 26 




a 


17155 82 R 


? 24 


17156 69 E 


? 24 











32 
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17157 


32 


BLANK 


? 


24 










17158 


84 


T 


? 


24 




17159 


72 


H 


? 


24 




17160 


69 


E 


? 


24 




17161 


32 


BLANK 


? 


24 




17162 


71 


G 


? 


24 




17163 


82 


R 


? 


24 




17164 


65 


A 


? 


24 




17165 


80 
72 


P 
H 


? 


32 

160 














17166 








17167 


73 


I 


? 


158 






17168 


67 


C 


? 


135 










17169 


83 


s 


■> 


139 


- 


~ 


i 




17170 


32 


BLANK 


? 


143 


\\ 






17171 


71 


G 


? 


191 


'- 


I 




17172 


79 





? 


191 


1 






17173 


32 


BLANK 


? 


143 


I 






17174 


33 


i 


? 


135 


r 






17175 


34 


>• 


? 


ENTER 


'!:- 






READY 
> — 










c 


■r 
a 


jphics Editor stops 
utomatically after 
displaying last 
byte in line 120 



Now type RUN to see the fish swim, if there's anything wrong with 
the fish, BREAK, RUN 60000 and correct line 120 as necessary. (You may 
wish to examine line 120 with Graphics Editor in any case to see how the 
graphics are d isplayed) 
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The final step is to remove Graphics Editor by hitting BREAK and 
typing: 

DELETE 60000-60120 

If you now type; 

? 50 - FRE(A$) 

you will get 0. This shows that Super Graphics use none of the 
available string space! Note that Super Strings may atso be placed in 
PRINT statements and in DATA statements. 

Warning: Never EDIT Super Graphcs or they instantly change to Super 
Garbage! 



Basic Tokens as Stored in Memory 



Decimal 


Token 


iexadecfn 


lal Decimal 


Token 


hexadecimal Decimal 


Token 


Hexac 


128 


END 


80 


171 


LSET 


A6 


214 


C 


D6 


129 


FOR 


81 


172 


RSET 


AC 


215 


SGN 


0? 


no 


RESET 


82 


173 


SAVE 


AD 


216 


INT 


D8 


131 


SET 


S3 


174- 


SYSTEM 


AE 


217 


ABS 


09 


132 


as 


84 


175 


IPRINT 


Af- 


218 


FRE 


OA 


133 


CUD 


85 


- 176 


DEF 


Bit 


219 


INP 


OB 


134 


RANDOM 


86 


177 


POKE 


Bl 


220 


POS 


DC 


135 


NEXT 


87 


178 


PRINT 


B2 


221 


SIR 


DO 


136 


DATA 


88 


179 


CONT 


B3 


222 


RN[i 


DE 


137 


INPUT 


89 


180 


LIST 


B4 


223 


Lor, 


OF 


138 


DIM 


8A 


' 181 


LLIST 


85 


224 


EXP 


E0 


139 


REAO 


HB 


812 


DELETE 


B6 


225 


90S 


El 


140 


LET 


8C 


183 


AUTO 


B7 


226 


SIN 


E2 


141 


GOTO 


SD 


"184 


CLEAR 


68 


227 


TAN 


Ei 


142 


RUM 


8E 


185 


CLOAD 


69 


228 


"ATAN 


E4 


143 


IF 


8F 


186 


CSAVE 


6S 


229 


PEEK 


£5 


144 


RESTORE 


90 


187 


NEW 


66 


230 


CVI 


E6 


145 


GOSUB 


91 


188 


TAB 


BC 


231 


CVS 


E? 


146 


RETURN 


92 


189 


TO 


60 


232 


cvo 


£S 


147 


REM 


93 


190 


FN 


BE 


233 


EOF 


£9 


148 


STOP 


94 


191 


USING 


6F 


234 . 


LOC 


EA 


14') 


ELSE 


95 


192 


VAPTR 


C0 


235 


LOF 


EB 


150 


TRON 


96 


193 


USB 


CI 


236 


MKIS 


EC 


151 


TROFF 


97 


194 ■ 


ERl 


C2 


237 


MKSS 


EO 


152 


DEF5TR 


98 


195 


ERR ' 


C3 


238 


•■MS 


EE 


155 


DEFINT 


99 


196 


STRINGS 


C4 


239 


CINT 


EF 


154 


DEFSNG 


9A 


197 


INSTR 


C5 


,■ 240 


CSBC 


F0 


155 


DEFDBL 


9B 


198 


POINT 


C6 


241 


COBL 


Fl- 


156 


LINE 


9C 


199 


TIMES 


C7 


242 ■ 


FIX 


F2- 


157 


EDIT 


90 


200 


HEM 


C8 


243 


LEN 


F3 


158 


ERROR 


9E 


201 


INKEVS 


C9 


244 


STRS 


Fa 


159 


RESUME 


9F 


202 


THEN 


CA 


245 


VAL 


FS 


160 


OUT 


A(9 


203 


HOT 


CB 


246 


ASC 


Fb 


161 


ON 


Al 


204 


STEP 


CC 


247 


CHRS 


F7 


162 


OPEN 


A2 


205 


+ 


CD 


248 


LEFTS 


F8 


163 


FIELD 


A3 


206 


- 


CE 


249 


EIGHTS 


F<) 


164 


GET 


A4 


207 


* 


CF 


250 


MltlS 


FA 


165 


PUT 


AS 


208 


/ 


Oft 


251 




FB 


166 


CLOSE 


A6 


209 


1 


DI 


252 




FC 


167 


LOAD 


A7 


210 


AND 


02 


253 




FD 


168 


MERGE 


A3 


211 


OR 


D3 


254 


i 


FE 


169 


NAME 


A9 


212 


> 


04 


255 


ISA 


FF 


170 


KILL 


AA 


213 


» 


D5 









Hote: Conwrals at FB and FC not fully described 
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Activities of: 










i^-SS^ 



„.,.A«Ct.«">""' E 



DISKETTES 



VERBATIM 

DYSAN d Compa ,ible with TRS-80, en- 

CASSETTES 






C-10 Box of 10 
$6.50 + 51.00 postage 



C-20 Box of 10 

$7.50 + $1.00 postage 



This activity certain to promote high levels 

of reliability in tape and disk use, duplication 

and information storage. Take immediate 

action — purchase all available stocks — curtail 

further influx of certified media throughout 

the microcomputer industry. 
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by Frank B. Rowlett, Jr. and Garry W. Woodruff 

Is playing games on your TRS-80 sometimes dull? Do you ever wish it 
would produce sounds under program control and have animation on the 
screen like the big arcade games? If so, and you have Level II BASIC, you 
can do it inexpensively. 

For sound, you'll have to construct a simple device called the 
"Boomer Box". It isn't complicated or difficult to assemble, and the parts 
are available at your local Radio Shack store. The "Boomer Box" connects 
via the tape recorder REMOTE control plug ... you don't have to modify 
your TRS-80. And, while we designed the "Boomer Box" specifically for 
the TRS-80, it should work with any other computer system having a relay 
or switch to turn a tape recorder on and off under program control. 

The "Boomer Box" is designed around Radio Shack's Complex Sound 
Generator (Texas Instruments SN76477N) IC (Integrated Circuit) chip. We 
adapted a circuit from the data sheet that comes with it to allow the device 
to produce a sound similar to a long gunshot or short explosion. A variety 
of sounds can be produced by controlling the duration of the sounds with 
timing loops or multiple activations of the box, or both. It's possible to get 
a shot, machine gun fire, explosions and multiple detonations. Its only 
limitation is your imagination and whatever level of sound simulation you 
consider acceptable for your purposes. 

The tools you'll need are listed in Figure 1 . Note that they consist of 
only items that most do-it-yourself types have on hand. The parts are listed 
in Figure 2 along with the Radio Shack catalog numbers. Of course you can 
obtain them elsewhere, but Radio Shack has them all ... and for under 
twenty dollars. 
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R9. 1 


TOOLS 










Soldering Iran 




Drill [Electric or Hand] 








Wire Stripper* 




1/ Inch Drill Bit 








Wire Cullers 




5/ 32 inch Drill Bit 








Small Phillip! Screwdriver 


1/2 inch Drill Bit 








Sharp Knife 












PART 
NUMBEF 


RADIO 
SHACK 
DESCRIPTION CATALOG NUMBER 


quantity 

needed 


QUANTITY 
PER PACKAGE 


COST 
PER PACKAGE 


CI 


220 pF capacitor 


272-124 




2 


.29 


C3 


Au F capacitor 


272-135 




2 


.39 


C2 


1 l( F capacitor 


272-1406 




1 


.39 


C4 


10jC4, F capacitor 


272-1411 




n 


.49 


R4 


5.6K resistor 


271-031 




2 


.19 


R8 


2.2K resistor 


271-02? 




2 


.19 


R1.R7 


56K resistor 


271-043 




2 


.19 


R5 


150K resistor 


271-047 




2 


.19 


R2, R€ 


220K resistor 


271-049 




2 


.19 


R3 


1 M resistor 


271-059 




2 


.19 


Q1 


RS-201 4 transistor 


276-2014 




1 


.79 


02 


RS-2024 transistor 


276-2024 




1 


.79 


IC1 


Complex Sound 












Generator IC chip 


276-1765 




1 


2.99 


SPKR 


2 inch 6-ohm speaker 


40-245 




1 


1.89 


J1 


3(32 inch subminiature 












phone lack 


274-292 




2 


.99 




switch. ON /OFF plate 


275-602 




1 


.79 


B1 


9V battery clips 


270-325 




5 


. .99 




transistor sockets 


276-548 




6 


1.59 




2$-pln IC socket 


276-1997 




1 


.89 




pertboard, .100x.100 












2% Inches x 6 inches 


276-1395 




1 


.99 




experimenter box. 












51/16 inches x 2 5/8 Inches 










x1 518 inches 












aluminum cover 


270-233 


r 


1 


1 49 




round head machine 


64-3011 


3 


42asst. 


.89 




screws, 4-40 x V* inch 












hex nuts. 4-40 


64-3018 


3 


30 


.89 




9-volt battery 


23-464 


1 


1 


.99 



$19.26 



Fig. 2 
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Radio Shack does package several identical items together so that you 
may be required to purchase several more than you need. This will give 
you spare parts for future projects, or several of you could get together and 
build a bunch of "Boomer Boxes' ' at one time. 

Begin by lining up all your components and making sure you can 
identify them easily. While you're at it, you can bend all the resistors into 
square U-snapes with a flat bottom of Vz Inch containing the resistor. This 
will make for easier going later on. Now be sure you have all your tools, 
and that they're handy and ready to use. 

The Complex Sound Generator chip comes with a diagram showing 
you all the pin numbers. We will refer to the pin numbers as they will be 
mounted in the IC socket- Do not put the chip in the IC socket, the 
transistors in the transistor sockets or connect the battery until you reach 
the appropriate place In the instructions. If you do, you risk ruining your 
chips or transistors. Bo very careful when handling the IC chip... those 
little pins are sharp and you con wind up with it embedded in your fingers. 

Be careful when soldering . Don 't use an excessive amount of solder in 
making a connection, and don't overheat any of the components. Use Just 
enough heat and solder to get a good joint. Mistakes in soldering can ruin 
the entire project. We have included sockets for the IC chip and the 
transistors to make assembly lesscriticaf for the inexperienced. 

There are two phases in assembling the "Boomer Box"; the first is to 
assemble the components on the perf board, and the second is to mount the 
perfboard and other components in the box. We'll go through the 
assembly of the perfboard step-by-step. Read these instructions 
thoroughly before starting ... it is the most complex part of building the 
"Boomer Box", and requires careful attention and checking as you put it 
together. 

Be sure you have completed the current step in the assembly before 
undertaking the next step. Do not jump to future steps; complete each 
step as you come to it. 

As you go along, refer to the schematic in Figure 3 and the component 
layout in Figure 4. If you vary from these or substitute other components, 
we can't predict what will happen ... and you're on your own. 

Before beginning assembly of the components on the perfboard, cut it 
to its final size of 2 7/16 inches by 4 1 /16 inches. The easiest way to cut the 
board is to use a sharp knife and score deeply along the holes where you 
want to cut. Then carefully break the board along the scored line. 

ASSEMBLY INSTRUCTIONS FOR PERFBOARD 

Step 1 Insert the 28-pin IC socket into the perfboard as shown in Figure 
4. Note the orientation of pin 1 of the IC socket. Be careful not to bend any 
pins of the socket when inserting it into the board. 

Step 2 Insert resistor R1 (56K, green-blue-orange) at a right angle to pin 
4 of the IC socket. Bend the lead nearest the IC socket over to pin 4 and 
solder. Clip off the excess lead. 
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Step 3 Insert resistor R2 (220K, red-red-yellow) at a right angle to pin 5 
of the !C socket. Bend the lead nearest the IC socket over to pin 5 and 
solder. Clip off the excess lead. 

Step 4 Insert resistor R3 (1 M, brown-black-green) at a right angle to pin 
7 of the IC socket. Bend the lead nearest the IC socket over to pin 7 and 
solder. Clip off the excess lead. 

Step 5 Insert resistor R4 (5.6K, green-blue-red) at a right angle to pin 10 
of the IC socket. Bend the lead nearest the IC socket over to pin 10 and 
solder. Clip off the excess lead. 

Step 6 Insert resistor R5 (150K, brown-green-yellow) at a right angle to 
pin 11 of the IC socket. Bend the lead nearest the IC socket over to pin 11 
and solder. Clip off the excess lead. 

Step 7 Insert resistor R6 (220K, red-red-yellow) at a right angle to pin 12 
of the IC socket, Bend the lead nearest the IC socket over to pin 12 and 
solder. Clip off the excess lead. 

Step 8 Insert resistor R7 (56K, green-blue-orange) at a right angle to pin 
24 of the IC socket. Bend the lead nearest the IC socket over to pin 24 and 
solder. Clip off the excess lead. 

Step 9 Insert capacitor C1 <220pF) at a right angle to pin 6 of the IC 
socket. Bend the lead nearest the IC socket over to pin 6 and solder. Clip 
off the excess lead. 

Step 10 Insert capacitor C2 (1 .0 f* F) at a right angle to pin 8 of the IC 
socket with the positive lead nearest pin 8. Bend the lead nearest the IC 
socket over to pin 8 and solder. Clip off the excess lead. 

Step 11 Insert capacitor C3 (.1 11 F) at a right angle to pih 23 of the IC 
socket. Bend the lead nearest the IC socket over to pin 23 and solder. Clip 
off the excess lead. 

ftep 12 Cut a 4 1 /2 inch piece of 22-gauge wire. Strip 1 inch of insulation 
from one end and Vz inch from the other end. Lay the 1 inch stripped end 
next to the unconnected ends of the resistors and capacitors connected to 
pins 4, 5, 6, 7, 8, 10 and 11 of the IC socket. Bend the leads from the 
resistors and capacitors over the wire and solder each one to it. Clip off the 
excess leads. 

Step 13 Bend the wire from Step 12 around the IC socket and put the 1 /2 
inch stripped end near the unsoldered leads of R7 and C3 (from pins 24 and 
23 of the IC socket). Bend the leads over the wire and solder them to it. 
Clip off the excess leads. 

Step 14 Cut a 1 inch piece of wire and strip all the insulation from it, 
Solder one end to pin 2 of the IC socket. Solder the other end to the lead of 
R1 (from pin 4 of the IC socket) where it connects to the wire soldered there 
in Step 12. 

Step 15 Cut a 1 inch piece of wire and strip all the insulation from it. 
Solder one end to pin 1 of the IC socket and the other end to pin 25 of the IC 
socket. 
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Step 16 Cut a 1 1 /2 inch piece of wire and strip Vz inch of insulation from 
each end. Solder one end to pin 25 of the IC socket and the other end to pin 
15 of the tC socket. 

Step 17 If the transistor sockets have four pins, leave the three pins that 
are in line and pull out the fourth pin using a pair of pliers. Insert one of 
the transistors sockets (the one for Q2) near the edge of the perf board with 
the flat part towards the IC socket (see Figure 4). insert the other 
transistor socket (the one for Q1) with the fiat away from the IC socket (see 
Figure 4). 

Step 18 Bend the two pins from each transistor socket that are closest to 
each other together, and bend the unsoldered lead from R6 (from pin 12 of 
the tC socket) to these leads. Do not solder yet. 

Step 19 Cut a 6 inch piece of wire and strip Va inch of insulation from one 
end and Vz inch of insulation from the other end. Feed the Vz inch piece of 
bare wire from the top of the perfboard to the unsoldered junction from 
Step 18- Now sofder all four leads together. The other end of the wire will 
be connected to the speaker in Step 31 . 

Step 20 Inser R8 (2.2K, red-red-red) near the edge of the perfboard near 
the transistor socket for Q2 and pin 14 of the I C socket (see Figure 4). Bend 
over one lead of the resistor to the junction of R5 and the wire from Step 1 2 
and solder them ail together. Clip off the excess lead, Now bend the other 
end of R8 over to the middle pin of the transistor socket for 02. Do not 
solder yet. 

Step 21 Cut a 1 inch piece of wire and strip V* inch of insulation from 
each end. Bend the wire to the middle pin of the transistor socket for Q2. 
Bend the unsoldered lead of Fi8 from Step 20 to this junction. Solder all the 
leads together and clip off the excess lead. 

Step 22 Cut a Vz inch piece of wire and strip ail the insulation from it. 
Bend the unsoldered end of the 1 inch wire from Step 21 to the middle pin 
of the transistor socket for Q1 . Place one end of the Vz inch piece of wire to 
the junction and solder all of them together. Solder the other end of the Vz 
inch pieceof wire to pin 13of the IC socket. Be careful to not let the Vz inch 
piece of wire touch pin 1 4 of the IC socket. 

Step 23 Cut a 5 inch piece of wire and strip Vz of insulation one end and 
Va inch of insulation from the other end. Feed the V4 inch piece of bare 
wire end through a hole in the perfboard near the unsoldered pin of Ql's 
transistor socket. Do not solder yet. 

Step 24 Cut a 1 inch piece of wire and strip V* inch of insulation from 
each end. Connect one end to the unsoldered pin of Q1 *s transistor socket 
and solder it and the piece of wire from Step 23 to the transistor socket's 
pin. Solder the other end of the 1 inch wire to pin 14 of the IC socket. 

Step 25 Solder the other end of the 5 inch piece of wire from Step 23 to 
one terminal of switch S1 . 

Step 26 Solder the RED lead from the battery clip (B1 ) to the other 

terminal of switch S1 . 
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Slep 27 Feed the black lead from the battery clip (B1 ) through the 
pert board near R7 and C3. Solder the lead to where R7 and C3 are soldered 
together from Step 13. 

Step 28 Insert C4 (10 JJlF) near the transistor socket for Q2 with the 
negative lead nearest the socket. Bend the negative lead to the unsoldered 
lead of the transistor socket for Q2. Do not solder yet. 

Step 29 CutaVi inch piece of wire and strip all insulation from it. 
Connect one end to the unsoldered lead of the transisotr socket for Q2 and 
solder all leads together. Solder the other end to the junction of R8 and R5 
from Step 20. 

Slep 30 Cut a 6 inch piece of wire and strip V2 inch of insulation from one 
end and V4 inch of insulation from the other end. Feed the V* inch stripped 
end through the perfboard near the positive lead of C4. Bend the wire to 
the positive lead of C4 and solder. Solder the other end to the positive 
terminal on the speaker. 

Step 31 Now connect the unsoldered end of the 6 inch piece of wire from 
Step 19 to the unsoldered terminal of the speaker and solder. 

Step 32 Cut a 5 inch piece of wire and strip Vt inch of insulation from 
each end. Feed one end of the wire through the perfboard near pin 9 of the 
IC socket and solder. Solder the other end of the wire to the center terminal 
of J1 {the subminiature jack). 

Step 33 Cut a 5 inch piece of wire and strip V* inch of insulation from 
each end. Feed one end through the perfboard near pin 1 of the IC socket 
and solder it to pin 1 . Solder the other end of the wire to the left terminal of 
J1 as viewed with the threaded end farthest from you. 

Step 34 Now all soldering is completed. Check your work very carefully 
for shorts or bad solder joints. 

Step 35 Insert IC1 into the IC socket. Be sure to orient it correctly ... pin 1 
should be nearest to R1. Check carefully that all pins are inserted into the 
socket. Watch out for the pins ... they're sharp!! 

Step 36 Insert Q1 and Q2 into their respective sockets. Line up the fiat 
sides of the transistors with the flat sides of the sockets. 

Step 37 Turn S1 to the ON position 

Step 38 Touch B1 (the battery clip) to the appropriate terminals of the 
9-volt battery. You should hear a grating sound from the speaker. If you 
don't hear any sound, recheck all your solder joints. Also, check the 
orientation of the ICchip and the transistors in their sockets. 

Step 39 Connect the battery to the battery clip (B1). Now short the two 
wires soldered to the jack (J1). If along "boom" isn't heard, then recheck 
everything. 

Now that all the components are assembled on the perfboard and 
tested, it's time to put them into the box. First remove the aluminum cover 
from the box and use the diagram in Figure 5 to locate the holes to be 
drilled in it. Where the speaker goes, drill a pattern of 1 /8 inch holes to let 
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the sound out. Drill all holes carefully and as precisely as possible ... and 
let the drill do the work. Any excessive pressure can bend the soft 
aluminum and you'll get unsightly bends and bows in the cover. After all 
holes are drilled, remove the burrs with a sharp knife. 

Mount the submlniature jack in the 5/32 inch hole and tighten the 
retaining nut. Now mount the ON/OFF switch In the Vz Inch hole and 
tighten its retaining nut (make sure the ON/OFF plate is on the outside of 
the cover). Finally, mount the speaker with the three 4-40 by Vt inch 
screws and nuts. 

If you have trouble with the nuts holding the speaker to the cover, you 
can make some clips to hold it: take a paper clip and bend part of it into a 
U-shape that will fit around the 4-40 screw. Trim it so that it will bear on 
the rim of the speaker and hold it to the cover. You can use one clip on each 
screw if necessary (we got away with only one). 

Now, carefully push the perfboard into the bottom of the box. You can 
use a knife or small file to notch the perfboard where the vertical ribs in the 
center of the box are. The perfboard should fit slightly snug ... if it doesn 't, 
you can use some cardboard wedges to help hold it in. It shouldn't rattle 
around inside the box (but don't get it so wedged in you can't easily get it 
back out). 

Now connect the battery to the battery clip and put the battery inside 
the box. Put the lid on the box and screw down the four screws that hold it 
on. The assembly of your ' ' Boomer Box" is now complete- 



To connect the "Boomer Box" to your TRS-80, put the plug that goes 
to the REMOTE jack of the tape recorder into the jack on the "Boomer 
Box". You now use the OUT statement of Level II BASIC to turn the sound 
on and off. An OUT 255, turns the sound on, and an OUT 255,4 turns it 
off. Use timing loops to control the duration of the sound (remember, you 
must turn the sound off before you can turn it back on again; and you must 
give the relay time to latch and. unlatch when you turn the sound on and 
off). 

To cause animation on the screen, use the PRINT ® statement. 
You can print a character string representing a complex graphic image on 
the screen wherever you want it. The character string will probably be 
made up of graphic and cursor control characters so that one print 
statement will cause the whole image to be printed at one time. 

It's usually best to pre-load the strings at the start of the program so 
that no time Is wasted during the animation cycle in loading strings. Also, 
be sure to include a method of blanking out residue of the previous graphic 
image on the screen . 

To have an airplane move from right to left across the screen, use the 
short program in Figure 6. Note the loop from line numbers 80 to 110 that 
keeps the airplane moving across the screen. You'll have to use the 
BREAK key to stop this program. 
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10 REM * OEHONSTRfiTlON PROGRAM * 
28 aEfR208:O€FWTX:I)£FSTRP 

38Pl<HR$(176):P2<HW<143>:Fi*CHR»<131):P4=CHW<26)+STRINa<14 
,CHR*<24»:P=CHR$(168)+" "+CHR*(168)+Pl+rl+" "*CHR«168)+CH 
R$(188)+" ''♦P4*CH»<171)<CHR$<i39)+STRINI»<5i P2)+STRING$C& P3>+" 

* 

48 REM NOTE: BEFORE EACH P4 <LIHE FEED PIUS 24 BACKSPACES) 
50 REM ft BLANK ftPPEARS TO CLEftR OUT RESIDUE IMAGE FROM 

68 REM THE PREVIOUS PRINT. 

78CLS 

88 F0RX==432T0384STEP-i: ' LOCATE THE PLftME OK THE SCREEN 

90 PRINT8X,P; : ' PRINT THE IMAGE Of THE PLANE ON THE SCREEN . 

188 FORX8=lTOi6:NEXTX0: ' TIMING LOOP TO SLOW THE PLffC DO* 

110 NEXTX: ' MOVE THE PLANE OVER ONE CHARACTER 

128 G0T078: ' START A NEW PLANE ACROSS 

138 ' 

148 ' 

158 ' FIGURE 6 ' 



By combining the "Boomer Box" with an animation program and the 
INKEY$ function, you can create an arcade-like program that is complete 
with animation, sound effects and keyboard control. The sample program 
accompanying this article, "Anti-Aircraft Gunner", combines alt these 
elements. Studying it should give you the necessary insight into how to 
write your own arcade-type animated programs with sound effects and 
player control. 

Have fun ... and we hope you get a BANG out of this article! 

18 -fWI-AIRCRAF T OWNER" BY FRftNK B. ROHLETL JR. (2-2-79) 

28 'DEflOHSTRflTION PROGRAM FOR THE "BOOMER BOX"' 

40 CLE AR58& : D£F INTX-Z : DEFSTRE, P 

50 Fl=C^<176):P2=CH?$<i43):P3=CHR*(121):P4=CHRI<2e>+STRlf«3$(i4 

,CHR$(24)):P=CHR*<168)+" , +CHR*(160)+Pl+Pl+" "+CrW(166>+CH 

R*C188)+" , 4fi+fJHR$(l?l)+CHR$(OS)+STRINCtf(5,P2)+STRINuf<fi,P3>+ 

II 

68 E1=CHR$<133>+"* °+CHR$<160)+"*"+CHR$<161)+CHR$<156)+" *"+CH?$ 
(144)4" "+CHR*(161>+CHR$<182>+" '+M+CHR*<147>4CHRI(139)+CHR*(16 
7>+OlW(155)+'«"+CH^(148)+W.$(i:<5)+CHRJ(131)+C}«$(130)+STRl«6 
*G,CHR*(131)>+" "+P4+CHR*<129)+" *'+CHR$(i38)+CHR*C134>+" *" 
7g £2=" ** ** * "+P4+" ******* "+P4+"** *** * ***"+♦? 
. 4+» ****** * "4f44" ****». 
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80 E="N":aS:ItajT"W VQU HflNT INSTRUCT] OHS"; E : IFftSC<e>OeSTHEHl 

08ElSEf£lNT:Ff;INT'TH£ SPftCE BflR FIRES VOUR flNTl-fllRCRflFT GUI T 
HE SHELL" :PR1NT H MUST HIT W FtfiNE IN ITS BELLV TO DESTROY IT. 
DON'T" iPRINFFORGET TO LEAD THE FtHHE WHEN SHOOTING fiT IT. " 

98 PRINT : PRINT: INPUT-PRESS 'ENTER' TO CONTINUE"; E 

99 REH * BEGIN 6FSE * 

186 0UT25S. 4:2i=2f.:?^0:aS:{miK«:arr255,e:Fa?MT05:NEXT , i , :0U 

T255,4 

118 FORX=433TtB84STEP-l:E="":PRIHT«tPi :PRIHTM79» "+*i 

128 E= I WEV* : Z^ : G0SUB3&3 : 1 FZ=lThEM150 

138 IFE=" "THEH14eeLSEIFZ150THENSET(62, 39) : 0UT255, 8 : F0RVY=6T0i88 : 

NEXTYYtOUTKS, 4:Z1=Z1-1:PRINT§978, Zli 

1« NEXTK 

138 QOSU6490 

168 IF2K1MN198EISEPRINTM79, "+"; :V=RfCK58)+i5:F0R2=eT0V 

178 GOSUBsatEalNKEWnFEa^THEmeeaSEIFZlWHENSETC^^iOUTZ . 
S5,«:FORY^6TO180:t€XTW:OUT255, 4:E=" :Z1=Z1-1:PRIHT»78, 21> 

180 NEXTZ-.GOTOlie 

198 GOSllB408:F1?.INTK22."Gff£ OVER" :PftINT*512i 'HIT 'ENTER' TO PLfi 

Vfl6flIN:»i: IMPUTE :80TW88 

299 REM * TfifCK SHELL TO TFRGET * 

388 iFP0INT<62,39)THEMRESET(62, 23) :SET(6£, 36): RETURN 

318 IFP0INTC62, 36>THENRE5ET<6& 36) :S€T<62> 33) : RETURN 

328 IFP0INK62, 33>THENRESET<62i 33) :SET<62, 38> :RETURH 

338 IFPGINK62. 30>THINfi£SET<62> 38) :SET<62, 2?) :RETURN 

348 IFPOINT<62. 27)THENRESET<62, 27) :SET<62, 24) :RETURN 

358 IFP01NK62, 24)fW«)IHT<64, 22>ANDroiNT<61i 22)THEN368ELSER£SET 

(62. 24) -.RETURN 

368 OUT255,0: PRINTS El; :FORV=0TO50:HEXTY:OUT2S5»4:FORY=0TO3:NEX 

TV 

376 0UT255 i G;PRIITTCX-64,E2; : FORV=8TO160 : NEXTV : 0UT2S, 4 : FCRV^TtG 

:t£XTY 

388 a.lT255,e:FORV=8T0158:NEXTV:2=l:22=l+22:PRINTP1815,22; :QUT255 

,4:RETURN 

1W REM * CLEflR NREfiKfiGE AND PlfiNES * 

468 PRINTC328, CKR*<30); CHR*<26), CHR*<38>; CHRf (2S>; CHBK38); CHR$( 

26); CHR$(38); CHR*<26); CHRK38); :RETURN 

499 REM * ORfiM FRfiHE * 

568 PF =STR1HG*(63, CHR»<191) ) 

518 PRINTS PF;CHRK191);PF;CHR*(191); ■ 

528 PRINTK1, " fiHTl-ftlRCRHF T GUNNER u ; 
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528 PRlNTW96,PF;CHR$ti91>iPF; ;P0KE162«LiS-l 

54@ PRINTW66," WOTS LEFT: 25 "; :PRINT8i888»' HITS 8 "; 

558 RETURN 



C3 



Fig. 3 
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Business Software 

DISK PAYROLL 

Written to be a useful tool for the individual who has joined the 
growing number of men and women using microcomputers in 
their business to save time and increase accuracy in record 
keeping. Even if you have never seen a computer before, you 
can run DISK PAYROLL. The programs included on the 
diskette are interactive, that is, they ask questions in English 
and expect you to type answers on the keyboard. All data files 
are handled on your diskette automatically — no cassette tapes 
are necessary. 

A comprehensive 24-page manual with step-by-step in- 
structions on how to run each program is included in the 
package. Quarterly summaries as well as payroll information 
can be printed on line printer. Programs supplied on a high 
quality 5 1 /4 inch diskette. Price, $59.95 



INVENTORY SYSTEM 2.2 

This program allows for the creation, maintenance and review 
of over 2000 inventory items per clean diskette. The system is 
designed to operate under Radio Shack BASIC, DOS2.1, with a 
minimum memory allocation of 16K RAM. Data maintained for 
each inventory item includes: description (up to 15-character 
length in any combination of alphanumerics or punctuation), 
vendor name of code (any 8-character alphanumeric or 
punctuation combination), quantity of inventory item on hand, 
cost per unit, retail price per unit, reorder point, quantity sold, 
quantity purchased. 

Inventory System 2.2 is based upon the utilization of "random 
files" with 6 sub-records per random file buffer. This method of 
data storage allows for maximum utilization of diskette space 
and is briefly discussed in the Radio Shack DOS 2.0 Users 
Manual. It is assumed the user is familiar with the TRS-80 
operation methods as well as Radio Shack Disk BASIC and 
DOS 2.1. If you need information in depth, consider Inventory 
2.0 as an alternative. 

Price, $59.95 

TRS-0O Softuioie Ixdmnfe 
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UPPER 

lower 






Case Mod 

by Lance Micklus 

Our first issue of PROG/80 certainly generated a large amount of 
interest in modification of the TRS-80 for upper/ lower case. It also caused 
the telephone to ring off the hook. There was a typographical error which 
most people caught immediately: you should use 2102's not 2101 's. The 
second question was that it seemed as if the modification wouldn't work . , . 
at least not on paper. 

The "at least not on paper" is the catch. Many readers didn't have 
sufficient experience working with printed circuit boards to know that 
schematics only show you what is connected to what. They don't show you 
HOW what is connected to what. And that may very well be why no one 
ever thought of using this modification. 

Sometimes it helps to draw the schematic in a different way. The 
illustration following is drawn the way I see it. If you forget about the 
modifications shown on the drawing and compare it with the schematic in 
the TRS-80 technical manual, you'll see that they are identical. The key is 
the way 230-13, Z27-13, and Z60-4 are connected together, in my 
schematic and in the Radio Shack schematic, these three points are all 
connected together. So, circuit-wise, the schematics are the same. 

Hopefully, this clears up most of your questions. ! might add that 
most of those who called got straightened out and didn't need local! back. 
I assume that means that they got it all working. 

What about the software? Making this modification isn't going to give 
you upper/lower case letters on the screen yet. The only thing you can do 
is POKE lower case characters into the video RAM. To display them 
requires a machine language subroutine. If you have KVP, the subroutine 
is built into it already. But, if you don't want to buy KVP just to display 
lower case letters on your screen, then the BASIC program below will 
create a subroutine for you in high memory. 
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e ' t * * UPPER / LOWER CASE DRIVER * * * 

160 CL5: PRINT CHR*<23> 

120 PRINT022& "ENTER MEMORY SIZE " 

146 INPUT "1=4K 2=16K 3=22K 4=48K ";fl 

168 !F IKS OR KM THEN 160 

180 FOR 1=1 TO M 

208 REffi) II, 12, 12.. 14 

220 NEXT I 

240 READ 16 : IF 16 O -999 THEN 240 

268 FOR 1=11 TO 12 

288 READ B 

300 POKE l.B 

226 NEXT I 

2-48 POKE 16414, 216 

260 POKE 16415. 12 

288 PRINT 

400 PRINT"BE SURE TO ANSWER MEMORY" 



UPPER/lower «ase MODIFICATION 





Ml ISACE HEW 
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426 

446 
469 
480 
500 
520 
540 
560 
589 

660 

628 



660 
680 
780 
728 
748 



PR I NT "SIZE QUESTION WITH"; 14 

PRINT 

END 

DftTfi 29448, 26649, 79, 28448 

DATA 32?28, 3275?. 127, 32728 

DATA -16424, -16395, 191, 49112 

DATA -48, -11, 255, 65496 

DATA -999 

REM 

REM — MACHINE LANGUAGE PROGRAM 

REM 

DATA 221, 110, 1 3, 221, 182 

DATA 4, 218, 154, 4, 221, 126 

DATA. 55, 183, 486, 1, 113, 121 

DATA 254, 32, 218, 6, 5, 254 

DATA 128, 216, 166. 4 

DATA 135, 125, 4 



New Arrivals at 



TR5-80 Software Exchange 



ACCOUNTS RECEIVABLE!! 

Improve your cash flow and cut your 

paperwork. A.R. will print detailed and 

general reports, age accounts, even print 

invoices with your company name and a 

message. Requires no programming 

knowledge. 

32K Dual Disk $79.95 

PERCOM DISK DRIVES 

Now in stock !! Quality Percom Drives 

for the TRS-80. Compatible with all 

Radio Shack hardware. 

Single Drive $399.00 

Dual Drive $799.00 

Cable $29.95 



SPACE BATTLEAssume the role of a 
galactic mercenary in one of the best 
"Trek" type games we've seen. 
Real-time input, high speed graphics and 
the right blend of strategy and tactics 
make space battle more interesting with 
each playing. 

Level II. 16K Tape, $14.95 

Disk $19.95 

GENERAL LEDGER II 

At last! A really good ledger system for 
small business. Define your chart of up 
to 400 accounts. Single-entry system for 
easy posting. 
32K Single Disk $79.95 



Use the convenient order form on peg* 71 
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by Philip Brown 

To create a truly fantastic game or special purpose program, it helps 
to have interesting, fast graphics. This is most easily and conveniently 
accomplished by developing strings from data in the beginning of the 
program. Graphics Aid is a programmer's tool to translate graphics 
constructed on the screen into data that can be output through use of the 
video, cassette, line printer or disk. Output disk or cassette files can be 
input, allowing the user to work on the same graphics at different times. 



DATA INITIALIZATION 

When the program begins, it asks if there are any strings already, if 
the program is being run for the first time, no strings would exist. If it has 
been previously run, data that was stored by the program on disk or 
cassette can be input at this point. 

Next, the program will print out the data it has and will ask for the 
line number to be worked on. The program wil I construct up to eight 
strings — a half screen — with lengths of up to sixty-three characters 
each. Next, the tab for that string must be set. To help with the decision, 
there is a line above the graphics showing where a tab would begin. 

10 25 42 

0—5—0— 5— 0—5—0—5— 0—5—0—5—0— 



GRAPHIC CHARACTER CONSTRUCTION 

With a line and tab chosen, the program will go into its graphic 
character construction sequence. 

SPECIFY WHICH BLOCKS ARE TO BE TURNED (on) AB 



Q = CONSTRUCT 
R = RECALL MENU 



K = CANCEL 



CD 
EF 



PROG/60 May 1979 



By hitting the letters A B C D E F graphic characters are 
constructed in the upper right-hand corner of the screen, if you 
accidentally construct the wrong character, typing a K lor cancel will clear 
the present character and start the construction of a new graphic 
character. If you wish to get out of the construction sequence, typing a R 
will return you to the menu. 

STRING CONSTRUCTION 

With the correct graphic character in the corner of the screen, typing a 
O will begin the string construction. The graphic character will appear as 
the last character on the string you are presently constructing. At that 
point, you are given three choices: Reject, Include, or Repeat. 

Pressing a 1 for Include will leave the graphic character as the last 
character of the string and you will be returned to the graphic character 
construction sequence. 

Pressing a 2 for Repeat will add another of the same character to the 
end of the string. This can be done until a oral is pressed, or until there 
is no more room left in the string. 

Pressing a for Reject will remove the character from the end of the 
string and you will be returned to the graphic character construction 
sequence. 

MENU 

The menu will first ask if you wish to quit. If you answer YES to this, 
the program will begin its data output sequence. Otherwise, the program 
will ask you If you wish to edit or not. An affirmative response will begin 
the edit sequence. A negative answer will start the graphic character 
construction sequence. 

EDIT SEQUENCE 

After inputting the chosen line number and tab, editing will begin 
with a number of choices: 

RIGHT ARROW to advance 
LEFT ARROW to move left 
X discontinues editing 
Anything else starts editing 

and the character presently in question will be blinking. 

•Hitting a RIGHT ARROW will move the indicator to the next 
character to the right. 

• Hitting a LEFT ARROW will move the indicator to the next character 
to the left. 

•Hitting an "X" will discontinue editing and return you to the menu. 

♦Hitting a "D" will delete the presently indicated character. 
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•Hitting an "I" will go to the graphic character construction and 
insert the constructed character in the string at the chosen place, moving 
the remaining right side of the string to the right side of the character. 

•Hitting any other key will begin editing of the character in question. 
The program will proceed to the graphic character construction, following 
which the present character will be replaced with the constructed 
character. 

in either editing or inserting, you are given the choice to reject the 
new characters. 

DATA OUTPUT 

Indicating you wish to quit in the menu will bring you to this point. If 
you wish to output data, this can be done here on the screen, on the 
printer, or on disk or cassette. The choice Is yours.Good luck! 

16' GRAPHICS MD 
28 ' 6V PHILIP BROUN 

50 CLEAR 1899 

60 REM** 70-U0 ** INITIALIZE DfiTfi ** 

70DIrlRS$(8>,K8> 
80 FOR 1=1 TO 8 
90 RS$(I)= d " 

190 KI)=6 

lift NEXT 

tat as 

IB GOTO 2090 
140 PRMI2S6, ""; 
158 FOR 1=1 TO 6 

160 PRINT "0—5 "J 

178 NEXT I 

180 PRINT "0--"; 

196 GOTO 620 

288 6Q=LEN(RS$(L»+T 

216 PP*8 

220 GG=« 

2*6 ft£H** 246-448 ** GRAPHIC CHARACTER CONSTRUCTION ** 

248 PRINT09,""; :PRINT STRIH6$<255, • ">; 

256 PRINTS, " "; 

266 PRIHTTflB<62); "fiB"; :PRINTTAB<62); "CD"; :PRINTTr8<62);"EF"; 

276 Y=128:$1=0:S2=0:S3=0:S4=8:S5=6:S6=B 

288 mum, "SPECIFV WHICH BLOCKS ftRE TO BE TURKS <0N>"; 
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250 PRINT075,*e = CONSTRUCT"; 

308 IF QG*i THEN 318 ELSE PRINTeOS, "R = RECflLL MEMWi 

318 PRINTS, "K = CflNCEL"; 

320 fi*=lNKEV*:lF fi$=" THEN 326 

330 C*=CHRK19t> 

348 IFSlOl IFft$="ft"PRINT862,C$;:Sl=i:Y=YU 

350 1FS201 IFft$= , B H PRINT063,C*;:S2=i:Y=Y+2 
360 IFS301 IFft$="C" PRINM26,C*;:S3=l:Y=V+4 

378 IFS401 !Fft$="0" PRlNM2?.C$;:S4=l:Y=V+8 

388 1FS5<>1 !Fft$="E u PRMWmtti :S5=1:V=V+16 

350 IF5601 JFft$='F" PRIHTttSLCfc :S6=l:Y=V+32 

488 IFft$="8" G0T0468 

418 IF 6G=1 THEN 438 

428 IF ft*="R" THEN 570 

438 lFft$="K" THEN 248 

440GO1O28W 

458 REM** 468-560 ** STRING CONSTRUCTION ** 

468 IF PM THEN 1888 

470 PRINTS.. "VPRINT STRING*<255, " "); 

488PRM9C<20+i*64),"";;PRlNTTflB(T);RS$(L)iCHR*(V); ■■ ■■'■'■ 

490 PRINT0288, "PRESS TO REJECT, 1 TO INCLUDE, 2 TO REPEAT"; 

560 X**1NK£Y$:IF X*=" THEN 500 

510 IF WI'W»>"3') THEN 498 

52@ IF X*="0' PRINT8<328+l*64+T+L£N<RS*<L)»," "; :G0T0 240 ' 

530 80=09+1 "■ ■ "'■■■ 

540 IF 06=63 THEN RS»CL)=RS$(L)+CHR$<V>:G0T05re 

556 IFX$="1" THEN fS*<LH»aHCHft*<V):G0T0248 

568 RS*<L)=RS*(L)+CHR$(V):60T0488 

565 ROw 578-690 ** «KU ** 

578 PRINT08, "; :PRINT STRlNG$t255, " ">; 

580 PRMI18," *; :WUT"00 YOU WISH TO SU1T";M* 

5% IF N*="YES" OR IteT THEN 1378 

688 PRINT074," "; :1HPUT"WILL VOU BE EDITING"; H$ 

619 IF H$="Y£S" OR H$=°Y" THEN 718 

628 PRINT074," •; :INPUT"MHfiT LINE HILL VOU WORK ON";L 

638 IF a<l)+(L>8) THEN 578 

649 PRINTRL38, " *;: INPUT "HOW MUCH HILL YOU THE IN ";T 

650 IF (T>62-L£WRS*<L)»+a<0> THEH 570 
660 T(L)=T 

678 PRINT?<328+L*€4>, "; :PRINTTfle(T);RSI(L)j 
688 PRINT STRlNG*(63-T-LEN<RSt(L»,'")i 
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696 GOTO 288 

788 fiffl** 718-1350 ** EDIT SEQUENCE ** 

718 PRINTS. *"i :PRINT STRIHGK168, 11 ")i 

728 PRlNT*ie, u VINPUPHHRT LINE HILL VOL) WORK ON"; L ■ ■ 

730 IF (L<i)+<L>8) THEN 578 
748 IF LEM<RS$(L»=0 THEN 570 

756 mmm ■ •* ; inputhok huch will you tab wn . 

760 IF (TXRE»KRS$<L»H(K0> THEN 710 

776 T(L)»T 

788G6=1 

798 PRINTe(220+L*64),"i :PRlKn«(T>iRS$a)i 

980 PRINT STRINGS<62-T-LEN(RS$(L»> " *>j 

818 PRINT0(228+T), '+■; :PRINT8(896+T), "+"; :SS=T+1 

828 PRINT88, "; :PR1HT STR1NGS(2S5, " •>) 

830 PRINT810, "HIT SPflCE 8flR TO AOVftNCE. Z TO HOVE LEFT" 

848 PR1NT874, "X DISCONTINUES EDITING" 

858 PRINT§138."D DELETES TO CHflRflCTER, I INSERTS fl CHARACTER" 

868 PRINT8282, 'fWTHIMo ELSE STARTS EDITING"; 

878 IF L£N<RS$(L»=8 THEN PRINT8G19+SS>> " "; :PRINT8(8S5«S)," " 

;:G0T8S78 

888 2$=IHKEY*:IF Z$=" THEN 888 

898 Njt4 

980 IF (SSXEN(RS»<L»+T)*((ZIO , 2*)*(2fO , X"» THEN 888 

918 IF 2IO" ' THEN 930 ELSE IF SSKEN(RS*<L»+T THEN 878 

988 SS=SS+l:PRtNTe<3i8+SS>," +"; :mNT8<894+SS>, " +"; :GOTO 878 

938 If Z$="X* THEN PRINT8<319+$S>, " '; :PRINT8(835+SS), " "i .GOTO 

578 

948 IF Z$0'D* THEN 1838 

958 EE=SS-T:IF SSd THEM 978 

968 K$(L)=R16HT$(RS»(L),L£N(RSI(L»"i):G0T0 1608 

970 IF S50LBMRS$a» THEN 998 

988 RS»(L)=l£FT«RS$<L>,LBKRS$(L»-l>.GOTO 1088 

998 RS»a )=LEn$<RS$(L), E£~1HR16HU<RS*<U> t£N<RS*<l»-EE) 

1888 PRINT8<328+L*64>,"; :PRfflTTfiB<T>;RS*<L>; 

1810 PRINT STRIHG*<63-T-t£N<RS*(L»," ">; 

1828 GOTO 878 

1838 IF ZfCZ" THEN 1858 aSE IF SSC*T* THEN 878 

1848 SS=5S-l:PRINT80i9+SS>.** *; :PRINT8(895+SS>,'+ •; :GOT0 878 

1858 IF 210"I- THEN 1876 

1868 IF L0KRS*<t»+K63 THEN 111=1 ELSE 878 

1878 PP=1:60T0 248 
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TIRED OF DISK ERRORS? 

STOP BLAMING YOUR DRIVES - 
FIX YOUR DOS! 

NEWDOS 

NEWDOS, by Apparat, is the third generation disk operating 
system for your TRS-80. NEWDOS corrects over 70 errors 
and omissions in TRSDOS 2.1 and disk BASIC, yet the two 
are completely compatible! Programs and files saved under 
one can be used with the other interchangeably. Going from 
TRSDOS 2.1 to NEWDOS is like going from Level I to 
Level II: more power, more convenience, greater speed. 

NEWDOS has the power to: 



•Use all DOS commands 
(incl. directory) in BASIC 

•Automatically load and run 
a BASIC program 
on power- up 

•Produce variable cross- 
reference tables 



•Open 'E' to add to 

sequential files 
•Append files 
•Use your line printer as 

a screen printer 
•Renumber BASIC programs 
♦End keyboard bounce 



And, best of all, say goodbye to system crashes, lost data and 
wasted time caused by your old, bug-ridden system software. 



You paid $500 for your disk drive — 
why struggle with it? 

Apparat's NEWDOS is fully documented and available 
for only $49. 95 from; 

Tf £ TRJ'OO Software Exchange 

JP t? Briar CIU1 Drive Millard, N*w Hampshire 03055 



J 
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NEWDOS t 



If NEWDOS is the Cadillac of disk-operating 

systems, then NEWDOS + has to be the 

Ferrari. NEWDOS + retains all the features of 

the original NEWDOS, and adds 

the following utilities: 

Editor-assembler for disk JJ 

Disassembler (Z80 machine code) C 

LM Offset-allows transfer of any system tape to a £ 

disk file (automatically relocated) 

BASIC1-Level one BASIC saved on disk Q 

LV1DSKSL - not a typo, this saves and loads BASIC! ( 

programs to disk 

DIRCHECK-tests and lists disk directory C 

Superzap-display/print/modify any location £l 
in memory or on disk 

Super/ap alone is worth the price of this 

package. With it, we've quickly recovered lost 

programs, restored killed data files, and 

saved many hours of effort. The NEWDOS -f 

manual is another plus: clear and concise, it 

even includes a byte-by-byte explanation 

of the directory file . . . 

invaluable if you ever need to 

save a crashed disk! 

The price for all this computer power? That's the best part! 

NEWDOS + , Just $99.95 

NOTE: Use ol this software may require documentation available only wilh the 
,se of Radio Snack TRSDOS 2 1 and.'or the Radio Shack Editor; Assembler 

TcE TRI-80 lofluiciie EHchange 

& 1 7 Briar Cliff Drive Mlltord, New Hampshire 0305S 
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1888 IF PH4 THEK 1258 

1858 REM** 1186-1228 ** STRING CHARACTER EDIT ** 

1188 PRINTe<?19+L*64+SS>, CW?»(V)> 

liie PRINTW,";:PRINT STRING*<255, " ")? 

1128 PKIHT82B5, "PRESS 8 TO REJECT, 1 TO INCLUDE*; 

1138 X*=INKEV*:IF X$="" THEN 1128 

1148 IF X$<>"8" THEH 1168 

1156 PRINT*tt20*L*€4),"; :PRINTTfiB(T>;RS$<L);:80T0 828 

1168 IF X$O n l" TFCH 1138 

1178 EE=SS-T 

1188 IF FiOi THEN 1280 

1198 RS$<L)=CHR$<V)+RI6HT*<K*<L).LEN(f5t(L))-l):GOTO 828 

1288 IF EEOLEN<RS*<L» THEN 1228 

1216 RSt<L)=LEFT«RS«l.>,LEN(RSf<L)M>*CHW<¥):IJ(m) 828 

1228 RS»a)«tEFT$(RSI<L),EE-l)»CW»<Y)+RIfiHT*<RS$(L),LEN<R5f(L)> 

-EE) 

1238 GOTO 826 

1248 REH** 1256-1356 ** STRING CBfiRftCTER INSERTION ** 

1256 £E=SS-T 

1266F*Mf(328+L*64)>"i 

1278 PRINTTfiB(T>; l£FT$(RS*(L), EM>» CHR*< Y)i RIGHT! <RS$ (I), LEN(RS 

$<L))-EE+l)i 

1288 PRINTS •"» -.PRINT STRIN6iC255> " ">; 

1298 PRINT8285, "PRESS TO REJECT, 1 TO INCLUDE"; 

1388 X$=INKEV$:If X$="" THEN 1388 

1318 IF X$0"8" THEN 1338 

1328 PRINT6<328*L*64+T),RS$<L>; * *; :GOTO 826 

1338 IF X$0*1" THEN 1388 

1348 R$t<L)=LEFTt<RS*<L>, EE~1)*CHR$< Y)+RIGHT*(RS* <L>, LEN<RS*<0) 

+1-EE) 

1356 GOTO 828 

1368 RBI** 1378-2868 ** DATA OUTPUT ** 

1370 PRINTS, ""; :PR1NT $TRING*(255, " "); 

1388 PRIKreiflU ""* iIHPUT-DO V3U ;ffl DflTfi";F* 

1398 IF F*="N0' OR F*="N" THEN EM) 

1480 PRWm&'LINE PRINTER SCREEN, CASSETTE OR MSK"i 

1418 X*=INKEY* : IF X*=" THEN 1418 

1428 IF (X$="L , )+(X$="P") THEN 1636 

1438 IF X$='S" THEN 1478 . 

1448 IF X*="C" THEN 1856 

1458 IF X*="0" THEN 1958 
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1468 GOTO 1410 

1465 REN** 1478-1619 ** SCREEN OUTPUT ** 

1478 PRINTS " H i ".PRINT STR1NGK6& " ")> 

1488 PR1NTW.8, "i :INPUT"HMCH STRING DO YOU HHNT'iF 

1490 IF (F<i>+(F>8) THEN 570 

1586 IF LEN(RS*<f »=8 TfCN 1488 

1516 PRINT8& "";: PRINT STR1NG$<255, " ">; 

1528 PR1NT&17, "TAB =";KF>; 

1538 FOR 1=1 TO LEN(RS*(F» STEP 3 

1548 PRINT864, "",M+1»U2 

1558 PRINT"", RSC<RI[*<RS*CF)>I>1)>, 

1568 IF I>LEN<RS$(F))-1 THEN PRINT" —', ELSE PRINT ASttHIDKRS 

*<F), I+LD), 

1578 IF IX0KRS*<F»-2 THEN PRINT" — "; ELSE PRINT ASttHIDKRS 

*<F),I+2ii))i 

1588 PRINM8, "HIT ANYTHING TO CONTINUE"; 

1598 X*=3NKEV$:1F X$=*" THEN 1598 

1680 NEXT I 

1618 GOTO 1378 

1620 REH** 1638-1838 ** LINE PRINTER OUTPUT ** 

1638 D=fE£K< 14312): IF D=63 THEN 1678 

1648 PRINTS, ""; '.PRINT STRINGK68, * "); 

1658 PRINT826, "PRINTER NOT RERDY"; :FOR I=lTOi580:NEXT. 

1668 GOTO 1378 

1678 FOR 1=1 TO 8 

1688 IF RSI(I)="* THEN LPRINT'NO STRING l";I:GOTO 1818 

1698 LPRINT" », '"■"", "STRING *";I 

1786 LPRINT" WV TfiB =";T<1) 

1718 FOR M TO LEH(RS$<1» STEP 6 

1728 LPR'INT "«, J; «=", Mi °= u , J+2; "=", 3*2, "= a , J+4; •■", J+5; "=" 

1728 LPR'INT **,f6C<HIM<RSI(l),J,l)), 

1748 FOR 0=1 TO 4 

1758 IF JX£N«S#<I>M} THEN LPRINT" — \ aSE LPRINT ftSC<MIE*< 

RS*(i),j*at», 

1768 NEXT 

1778 IF JXEN<RS*(I))-5 THEN LPRINT" ~~\ ELSE LPRINT ftSC<Mt>*< 

RS*<I),J*5,1)> 

1788 LfRINT" " 

1798 NEXT J 

1S88 LPRINT" " 

1818 NEXT I 
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1828 FOR 1=1T03:LPRINT "".NEXT 

1838 GOTO 1378 

1848 R0t»* 1858-1938 ** CRSSETTE OUTPUT ** 

1858 PRIMT8e,'°i :F"RIKT STRINGK68, " ">; 

1868 PRINT818, "PKPfiRE THE RECORDER FIND ENTER WHEN R£flDY"; 

1878 W=IIKP»: IF )»»"" THEN 1878 

1838 CK>*T 

1898 FOR 1=1 TO 8 

1988 FUim-LRSfU) 

1918 PRMtt-tKI) 

1928 NEXT I 

1938 SOTO 1378 

1940 REM** 1956-2868 ** DISK FILE OUTPUT ** 

1958 PRINTSt, ""; : PRINT STRING$<68, u ">; 

1968 D=PEEK(14385>:If D0255 THEN 19S8 

1978 PRINT816. "THERE ARE NO DISKS"; :FOR MTO1508:NEXT:GOTO1378: 

1988 PRINT810, '"; :INPUT"WHfiT HILL THE FILENAME E€";P* 

1998 PRINT874, ""; :INPW n WHftT HILL THE FIUNUHBER BE(1-3>";P 

2888 OPEN "O'.P.PI 

2818 FOR 1=1 TO 8 

2828PRIMmRS$<D 

2838 HfflfTiMU) 

2848NEXU 

2850 CLOSER 

2868 GOTO 1378 

2878 REM** 2888-2448 ** DfiTFl Iff UT ** 

2888 PRINT88, U ";:PRINT STRING$<255, " "); 

2898 PRINTtie, "; :IHPUT"DO VOU ftLREffDV HAVE SOME STRINQS";U$ 

2188 IF U*="VES" OR U$="Y" THEM 2128 

2118 PRINTS*. ""; PRIHT STR!HG*<60>" ">; ;GOTQ 148 

2128 PRJMT882, 'DISK OR CflSSETTE"; 

2138 XHNKEYWF W*" THEN 2138 

2146 IF X*=*D" THEN 2188 

2150 IF Kf=*C" THEM 2328 

2168 GOTO 2888 

2178 REH** 2188-2388 ** DISK FILE INPUT ** 

2188 PRINTS,"; :PR1NT STR1NWC255, H ">; 

2198 WEHK<14385):IF D<>255 THEN 2216 

2288 PRINM6, "THERE RRE HO DISKS"; :F0RMTO1S88:NEXT:G0T02888 

2218 PRIHT810,"";:INPUT"H«T45 THE FILFJW1£ U ;P* 

2228 PRINW4,""; :IMPUT"WHftT IS THE FILENUMBER"; P 
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2238 IF (P<1)+(P>:<) THEN 2888 
2248 OPEN T,?,H 

2258 FOR 1=1 TO 8 
2268 INPUT*P,RS$a) 
2278 INPUT«P,T(I) 

2288 NEXT 1 

2298 CLOSE P 

2388 GOTO 2488 

2218 REM** 2328-2338 ** CASSETTE INPUT ** 

2228 PRINTU8,"";:PRINT STR1NGJC255, n ">; 

2338 PRINT816, "PREPARE THE RECORDER AND ENTER WHEN READY"; 

2348 X$=MEY$:IF X$="" THEN 2348 

225,8 CMD"T 

2368 FOR 1=1 TO 8 

2278 INPUTt-l,RS$<l) 

2388 INPUT#-1,T(I) 
2338 NEXT I 
2468 as 
2418 FOR 1=1 TO 8 

2428 PRINTC'<328+I*64+T(D),RS*<I); 
2438 NEXT I 
2448 GOTO 148 




Logarithmic spirals 
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by Bill Driscoll 

Squish is a program for the TRS-80 DOS user which compresses 
BASIC programs by removing all unnecessary blanks and line feeds. After 
processing, your overall disk and memory requirements will be reduced. 
The amount of compression is determined by your coding techniques ... 
the more spaces and line feeds used, the higher the space reduction will 
be. The biggest advantage of Squish is that you'll be able to store more 
programs on disk or reduce overall program disk space, thereby creating 
additional space for data. 

RUN PROCEDURE 

1 . Load your BASIC program into memory 

2. Save "PROGRAM NAME", A This saves the program on disk in 
ASCII format 

3. Run "SQUISH/BAS" When Squish is loaded, It will ask you for the 
program name: Enter the program name just saved in ASCII 

Once Squish is loaded, you won't be able to BREAK out with the 
BREAK KEY. Squish compressess the program in its own space on disk, 
therefore, once started, it must complete the entire compression operation 
or the program will be lost. When compression is completed, Squish will 
stop and ask you to hit ENTER KEY to continue. When ENTER is hit, the 
"squished" program will be automatically loaded to insure proper 
operation, took the program over and then save " PROGRAM NAME' ' . 

I recommend you copy your working programs to a squish disk. If 
anything happens to one of the programs, you can always go back and copy 
it from your original disk. 
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18 '!W:SQUI5li^ftSVm.eOfiTE:92^4/79«m«R:BlL«RISCa4. 

28 DEFINTR-Z 
38 CLEflR?IEfi/2 

48 as 

56 PRINTCHft*(23>;TflB<5>; u BftSlC SCUI5H PROORfiK" 

68 PRIMT '.-'■■ ■ 

78 FSINTPROGRfld HffllE TO BE SQUISHED" ' 

86 POKE *R5C8C,6 

98 INPUTF1* 

iWQPQHMiFtt 

lie ope»"0".2jFi* .. 

128 IFEOF <1>THEN298 , 

136 LINEI1ffUT#i,M ' 

146 RC=RC+l:fft=flft+l£NCft*> 

156 PRINT8320, 'RECORDS REflD "jRC; 

168 FflRC=lTOl£H(ft$) 

178 PRIHT«384, "SCANNING POS. *s fc ' "; 

188 PRINTM48. "COMPRESS SWITCH <8=ON>";SM; 

198 IFNI&Kftfc C D=CHR*(24>flHDSH=8THEHSM=ia5EIFHIW<ftl, C, 1)=CHR 

$G4)TH£NSW=fl 

266 PRINTC512, "CHFRHCTERS ELIHINHTED 

218 IFSM=®MmiD*Cf«, C, 1>=' '0RHID*(ft| f C,l>=Q«$(18>THEHTSE=TSE+ 

1:NEXTEISEB*=B*H1ID* (M, C, 1) :NEXT 

228 PRINT«2»8* 
Z<0HR=HR+1 

246 PRINTC57& "RECORDS WRITTEN °;Wfc 
2S8 PRIHT6648, "BVTES SCflHHED "iflft 
2-68 B*=" 
278 SW=8 

288 G0T0128 

298 CUKE 

319 PRINT 

316 INPUTHIT ENTER TO CONTINUE"; SI 

:<28 POKE *H5C8C,1 

238 LORDFI$ ... 
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RENUMBER 



No, it's not a game, but it CAN l Oads 

make renumbering your programs ^^atf^P^ 1 Asir, 

seem like child's play! D ' Sl <o R t^'thfo 

If you find yourself renumbering to 

provide room for additional lines, or just to make things 

neater, this program has got what it takes to make life 

easier ... it can renumber a 12K program in just 32 

seconds. 

User has complete control over which lines are 
renumbered — and how — including all GOTO's and 
GOSUB's. You can even renumber the middle and leave 
the beginning andendalone! Ifanundefinedlineis 
found, the program will display both the line which 
caused the error and the unfound line number, thereby 
making corrections much simpler. 

You may have seen other renumbering programs, but 
NONE with this many features: no external tables are 
used, runs in 1300 bytes of high memory regardless of 
program size, loads from and operates on either disk- or 
tape- based programs. 

Versions available for 4K, 16K, 32K and 48K machines. 
(Unless specified otherwise, 16K tape automatically 
supplied) Also available on disk or as source listing 



Tj« 



Level II tape (specify version) — $15.00 
Diskette ( 3 versions on one disk) — $25.00 
Source Listing — $20.00 

TRI-80 Software CHchange 

17 BRIAR CUFF ORPVE MILFORD. NEW HAMPSHIRE 03055 
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A comprehensive 
software package, 
custom-designed 
for the amateur 
radio buff who has 
a TRS-80. Oper- 
ates in a real-time 
mode in conjuction with 



1 ^rsion 

M - Kellehet 



on-the-air activites, 
support for line 
printer reports 
in addition to disk 
data storage 
functions. 
Minimum 32K disk 
system with one drive. 



\A 



PROGRAM HIGHLIGHTS INCLUDE: 

•Complete amateur radio routine Output/input for callsign, 
time/date contact, frequency, mode, location, name, signal 
report, QSO end time, QSL sent/received confirmation. 
•Comprehensive amateur DX prefix file Information on DX 
prefixes, zone, country, great circle bearing, access anytime 
•Q-signal file All international Q-signals and ARRL net 
•Special net log routine Review and print contact stations, check 
in/out times, net control name and callsign. net start/end. net 
operating frequency 

•Operating frequency schedule Allowable modes and require- 
ments for 80, 40-, 20-, 15-. 10-, 6-, 2-meter bands 
•Propagation forecast Based on solar flux and K-index 
•Memo/message pad CW contacts; video and print notation of 
QSO information or copied message 

Available for single disk, 32K TRS-80 system 

'Two drives will greatly increase storage capabilities* 
$24.95 

TcE TRS-0O Software Exchange 

9 ,l BRIAR CLIFF DRIVE MILFORD. NEW HAMPSHIRE OMSS 



MWMWfV 
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by George Meyer 



This program, called I NIT, because I'm too lazy to type INITIALIZE, 
is written for a TRS-80 with 32K RAM. 

My serial printer driver is loaded at 'BEDO' hex {-16688 DEC) to 
'BF3F' hex (-16577 DEC). Remember, you have to use minus (-) values to 
poke addresses over 32767. My keyboard debounce routine is at 'BFC9' 
hex (-16439 DEC) to 'BFFF' hex (-16385 DEC), and the address ot the 
serial driver must be poked into the TRS-80 line printer driver routine at 
'4025' hex to '4027' hex (16421 to 16423 DEC). 

If you don't need these routines, you can use the program to bring 
your system up and load 'debounce'. Just eliminate lines 10 through 50 
and data lines 100 through 230. If you're not using 32K, then you'll have to 
change line 60 to the address you want for your debounce routine. 

To set up your system you must create a directory file of your disk. 
Save it on disk with the command SAVE"DIRECTORY/TXT", A enter the 
'INIT'programandsaveit. SAVE" I NIT", return to DOS. Enter the 
command, auto BASIC and hit ENTER. From now on, every time you start 
your system, it will display DOS then BASIC (it will load BASIC 
automatically. Also, BASIC loads faster this way). Answer the memory 
size to protect any routines you will load, then run "INIT". Your routines 
will be POKED into memory and the file directory will be listed on the 
screen. 

The directory will be erased when you load a program, but anytime 
you want to look at it, make sure you use the 'MERGE' command to reload 
it. This will load the directory from line 60000, It will not affect any lines 
below that number. 

Next, 'RUN 60000' and you have your file list and can load any 
program you like without returning to DOS. 

NOTE: My printer driver looks for an 'S' on port 'EB' as a busy signal 
which is output from the printer. It may not work for you. 

HAVE FUN AND SAVE THE FINGERS AND DISK DRIVES!! 
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8 ' 'IRIT' ?mm USED TO LORD fill I/O DRIVERS i DIRECTORY 

18 POKE 16421, 2: POKE 16422, 288: POKE 16423,198 

12CLS 

15 PRINT8512, "RUNNING PRINTER ROUTINE. " 

20 FOR ffi=-16688 TO -1657? 

38 REflD B 

40 POKE ft&B 

58 NEXT fK 

52 CLS 

55 PRMI512, "RUNNING KEVBWRD DEBOUNCE ROUTINE. " 

68 FOR n*=-16439 TO -16385 

78 REM) B 

88 POKE fl&B 

98 NEXT fK 

92 CLS 

94 PRINH512» "LORDING BIRECTORV. " 

95 RUN "DIRECTRY" 

188 DATA 229, 197, 245, 58, 62, 191, 254, 1 
116 DfiTR 282, 6, 151, 62, 1, 58, 62, 191 
128 DATA 211, 232, &9, 233, 238, 248, 246, 4 
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Been searching for an •■■••■ ^B^B 
easy way to get into 
machine language? 

SIMPLE SIMON, pub- by Rev. George Blank 

lished in the March 1979 

issue of PROG/80, comes f ind ?*, w J£ s . goin8 on in your A 
' ' , Level II ROM, examine and 

to your rescue. Features mo< jjf v the dcb's, create 

included are: machine language subroutines, 

and more* written in BASIC so 
•Program entry it ' S easy t0 understand and 

•Hex and decimal . customize. 



^. . , ... , A lot of computer power 

•Memory scan/d!splay f oriust *4 95 
•nic 3 c C ^rr.ki«^ tor just >4.y> 



constants 
►Memory s 
►Disassembler 

T*fi TRI*dO SoftttKMtt Cxchoo^c 

"# 17 Briar Cliff Drive Milford, NH 03055 
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138 DftTft 58,61,191,211,224,219,223,236 

148 DATA 7,33,53,191,6,8,79,9 

158 DfiTfi 126,211,233,62,56,58,63,191 

168 WTfl 241,193,225,219,234,283,119,282' 

178 DflTft 3, 191, 219, 235, 254, 19, 282, 18 

188 DflTft 191, 121, 211, 235, 254, 13, 194, 42 

198 DflTft 191, 58, 63, 191, 61, 254, 8, 282 

288 DflTft 43. 191, 58, 63, 191, 14, 18, 195 

218 DflTft 3,191,281,62,58,58,63,191 

228 DflTft 14, 12, 195, 3, 191, 24, 68, 85 

238 DRTfl 182, 119, 178, 284, 238, 8, 8, 8 

258 DfiTfi 175, 17, 18, 8, 285, 11, 8, 25, 34, 22, 64, 285, 97, 27, 195 

268 DflTft 25, 26, 33, 54, 64, 1, 1, 56-, 22, 8, 18, 95, 174, 115, 162, 32 

278 DATA 8, 28, 44, 283, 1, 242, 226, 191, 281, 95, 197, 1, 220, 5, 285, < 

288 DflTft 8, 193, 18, 163, 288, 195, 251, 3 

DISK FILE DIRECTORY PROGRfttt 

60888 CLEAR 188 

66885 ft*=0«*<34> 
60818 CLS 

66828 PRINT-DIRECTORY DRIVE ';(*>' 8 ";fi* 

66025 PRINT STRlNG*<63,"-"> 

60838 PRINT"TAP£DISK/CMD", "DISKDlWVBfiS", H H£fiTHPR/ClH" 

68840 PRINT"INIT", "DIRECTRY*, "PARTS" 

60858 PRIHTPftRTSP*, "TftROT", "TICTftC" 

66868 PRINT'BILLS", "FILTERS", "JIGSAW" 



m 



Spherical plotting 



68 
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ELECTRONICS 

ASSISTANT 



Electronics Assistant is a set of nine circuit 
design programs in one. Written by a 
professional for the serious electronics buff, 
Electronics Assistant will draw schematics and 
help you design active and passive low-, 
band-, and high-pass filters, coils, attenuator 
networks, and three types of impedance- 
matching networks. Features extensive graph- 
ics and a one key selection routine. Circuit 
designers and students will wonder how they 
lived without their Electronics Assistant! 



For 16K Level II 
Price, $9.95 
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TtE TRf-80 Software exchange |!i 
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IIP 

.Android Nim 



The newest version of TRS-80's first animated 
graphics game - Android NIM - now with more 
animation and sound! 

Level If, I6K- $14.95 




Here is a computerized 
reptilian version of 21 

complete with arrogant 
snakes and appropriate 
sound 

Level II, 16K $14.95 



Two in one: Game of 
Life, at an astounding 
100 generations a min- 
ute, plus Battle of Life 
with animated creatures 
and sound 

Level II, 16K $14.95 



Cubes gives you the solution to Instant 
Insanity®*, a numbered block puzzle. Drive 
your computer nuts trying to figure how to 
arrange the 4 blocks on your screens. Each side 
shows four different numbers. Level II, 16K 

* Inalanl Insanity® la a Parker £9 95 

Brothers registered trademark ^ "-"* 

Tf£THf-00 SofkuKwc exchange 

•» t?BfllARCUFFDWVE MIIFORO, NEW HAMPSHIRE 030»* 
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So Your Computer Wants 
to Play Chess .... 

...then why not start off with the best? 



SARGON 

The recent winner of the 1978 
San Jose Microcomputer Chess 
Tournament, SARGON, Kathe 
and Dan Spracklen's revolutionary 
chess-playing program, left spec- 
tators slackja wed as it soundly 
defeated a formidable field of chal- 
lengers. Among those bested were: 



Chess Challenger -10 

Boris 

Atari 



Microchess 1 .0 
Microchessl.S 
Chess Challenger -3 

Level II, 16K -$19.95 




Fully annotated 114 -pg. manual — $14.95 

TRS-80 Software Exchange 

17 BRIAR CLIFF DRIVE MILFORD. NEW HAMPSHIRE 03055 
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